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I costi dell’auto che avrò 

Per calcolare e confrontare su misura i costi di qualunque auto, 
ecco un programma scritto con il Last One... 

La contabilità è mia e la gestisco io 

Contabilità? Mai più affidata ad altri. Ma quale programma 
scegliere? Eccone due per Apple III e Prof ile. 

Variabile, oh cara! 

Scrivere da sé I propri programmi non è difficile. Per chi comincia, 
ecco la prima puntata di una guida al Basic. 

Noi andiamo ail’AppieFest 

Vieni con noi all’AppieFest di San Francisco: una settimana In 
California, In ottobre, e un salto a Cupertìno... 
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Quanti voti per Appiè 

Anche le elezioni hanno contribuito a diffondere i computer: su 
tutti gli schermi televisivi italiani I risultati li ha forniti un personal. 
In Sicilia per esempio... 

Per ripescare ie figure 

Posizionare dove si vuole sullo schermo le figure di una tavola? 
Ingrandirle, ruotarle, cambiar colore? Con questo programma 
diventa facilissimo. 

A colpi di laser 

Una torretta laser, attaccata da asteroidi, astronavi e alieni. Ma a 
difenderla ci sei tu... 


Finalmente Dossier 

Uno studio da preparare con testi, grafici e tabelle suddiviso in tanti 
capitoli? Ecco la soluzione a questo e a tanti altri problemi del 
genere. 

Un dischetto a combinazione ^ 

Ecco alcuni semplici sistemi di protezione: se volete che nessuno 
acceda ai vostri dati quando lasciate un attimo la tastiera... 

Che pressione 

Prevedere l’andamento ciclico degli affari? 

Provate con questi grafici... 
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Come ottimizzare i file numerici 

Questa routine In linguaggio macchina consente una migliore 
gestione della memorizzazione su disco di numeri reali. 
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Ci siamo ^ 
fatti in''sette" 
per darti ii megiio. 

UN GRUPPO NON COMUNE - Un servizio più completo mediante lo scambio di 
risorse specializzate in tutti i settori, dalle comunicazioni alla gestione, dalle soluzioni scientifiche 
aH’intelligenza distribuita. 

UN IMPEGNO COMUNE - Per darti non solo un prodotto ma farti partecipe di un vasto 
patrimonio di esperienze e applicazioni; non solo vendere ma farti crescere con noi. 

CONTRO I LUOGHI COMUNI - ll personal computer non è un giocattolo. 

Il personal computer può risolvere i tuoi problemi anche gestionali se ti viene venduto da chi ti 
capisce ed ha il coraggio di dirti qualche volta di no. 

IL COMPUTER GIUSTO CON IL SOFTWARE GIUSTO AL PREZZO GIUSTO, 
MA SOPRATTUTTO AL CLIENTE GIUSTO. 



risorse, idee e soluzioni. 


COMINFOR-TORINO 
Via Rubiana, 3 
Tel. 011/7405547 

BASIC COMPUTERS - MILANO FIORI 
Centro Euromereato 
Tel. 02/8242970-588381 

IL COMPUTER - BRESCIA 

Via Benedetto Croce, 23 
Tel. 030/42100 


ANTEK COMPUTERS 
S. ANTONIO MANTOVANO 

Via Manzoni. 49 
Tel. 0376/398759 

EASY BYTE - ROMA 

Via G. Villani 24/26 
Tel 06/7811519-7887926 


COMPUTER CENTER - VISERBA DI RIMINI 
Via Palletta 25/A 
Tel. 0541/735268 

INFORMATIQUE - AOSTA 

Avenue du Conseil des Commis. 14 
Tel. 0165/2242 
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Tutti i diritti di riproduzione e tra¬ 
duzione di testi, articoli, progetti, 
illustrazioni, disegni, listati di pro¬ 
grammi, fotografie ecc., sono ri¬ 
servati a termini di legge. I pro¬ 
grammi pubblicati su Applicando 
possono essere utilizzati per 
scopi privati, scientifici e dilettan¬ 
tistici, ma ne sono vietati sfrutta¬ 
menti e utilizzazioni commerciali. 
I manoscritti, i disegni, le foto, an¬ 
che se non pubblicati, non si re¬ 
stituiscono. 


Quanti sono gli Apple installati in Italia? Quindicimila? 
Ventimila? Avreste detto che aumentano almeno di mille ogni 
mese? 

E chi compra un Apple ^gi, in Italia? Avreste detto che 
fra le migliaia di abbonati che Applicando ha raccolto tin 
dal suo primo numero si fa fatica a trovare un signor Rossi o 
un signor Bianchi qualsiasi? La più prestigiosa (e 
gratificante) collezione di carta da lettere italiana è qui, 
nei nostri uffici: allegando il tagliando di abbonamento ci 
hanno scritto medici, avvocati, ingegneri, architetti, 
dirigenti, imprenditori, banchieri. Moltissimi di gran nome. 
Chi tiene alla discrezione non tema, manterremo il suo 
segreto. A noi basta questa consapevolezza: applichiamo in 
buona compagnia. 

Qualità, dunque: il massimo. Quantità: pure. Non esistono 
esperienze di direct-mail riuscito come il nostro: il 55-607. 
di coloro che hanno ricevuto la lettera e il depliant di 
presentazione di Appiicando si sono abbonati senza neppure 
aspettare di vedere il primo numero. E centinaia e centinaia 
di tagliandi d' abbonamento continuano a piovere in redazione 
ogni settimana. 

Grazie. Una risposta così entusiastica sarà per noi sprone 
e stimolo. Speriamo, ovviamente, che a tutti coloro che si 
sono abbonati Applicando piaccia. Quanto a noi, non siamo 
ancora contenti: vogliamo far di più e di meglio. 

Nell' interesse di tutti noi che applichiamo, chi vuole può 
aiutarci: collaborando con articoli e programmi, segnalando 
nuove applicazioni, scrivendoci quel che pensa dovremmo fare o 
non fare, o anche contribuendo a diffondere la rivista. Con 
ancora più abbonati e, perchè no, più pubblicità (e qui la 
pubblicità è specifica: diventa anch' essa informazione), 
potremo stampare più pagine a parità di prezzo di copertina, e 
quindi più articoli, più programmi, più notizie... 


ST<^^CXjCo 


P.S. Di questo numero di Applicando sono state 
distribuite 10.500 copie. Ha vorremmo raggiungere anche chi un 
Apple non lo possiede ancora. Passateparola? 















30 e lode 
disse Apple 

Ai suoi allievi che fre¬ 
quentano il primo anno del 
corso di laurea in Scienze 
dell’Informazione presso la 
Facoltà di Scienze deH’Uni- 
versità Statale di Milano, gli 
esami li fa davanti al compu¬ 
ter. Un Apple II, naturalmen¬ 
te. Marco Malocchi, fisico, 
titolare della cattedra di 
Teoria e Applicazioni delle 
Macchine Calcolatrici, con¬ 
siderate le caratteristiche 
dell’esame tradizionale, che 
sono la soggettività nel giu¬ 
dizio, la lentezza quasi bu¬ 
rocratica, e l’impossibilità 
nel valutare l’effettiva pre¬ 
parazione dello studente, 
ha messo a punto una tecni¬ 
ca d’interrogazione nuovis¬ 
sima. Per taluni suoi colle¬ 
ghi persino ardita e rivolu¬ 
zionarla. 

«Preferisco dare un mag¬ 
gior numero di lezioni e in¬ 
segnare piuttosto che fare 
esami» dice però il profes¬ 
sore. «Ogni anno frequen¬ 
tano il mio corso 1.500 allie¬ 
vi. E, per esaminarli tutti se¬ 
condo le metodiche con¬ 


suete si perderebbero trop¬ 
pi mesi che possono invece 
essere impiegati per scopi 
più utili. Grazie al calcolato¬ 
re riesco infatti a ottenere un 
risparmio di tempo pari a un 
quinto rispetto agli altri do¬ 
centi.» 

Ma ciò che più sorprende 
è Tobiettività degli esami col 
professor Malocchi. È infatti 
Apple che grazie a un pro- 
gramma Impostato da 
Malocchi, sceglie i quesiti, li 
somministra agli studenti 
sotto forma di quiz, e dà la 
valutazione finale al candi¬ 
dato. Le domande richiedo¬ 
no una profonda conoscen¬ 
za linguistica della macchi¬ 
na, dell’architettura del cal¬ 
colatore, dell’algebra di 
Boole, della costruzione di 
programmi e della sintassi 
nel linguaggio Pascal. Chi 
dimostra di sapere quasi 
tutto ma con ancora qual¬ 
che piccola carenza nella 
sua preparazione, si può ri¬ 
presentare al professore 
anche una settimana più 
tardi per dimostrargli di aver 
colmato ogni lacuna. Supe¬ 
rata la prima prova lo stu¬ 
dente deve quindi sottopor¬ 
re alla commissione d’esa¬ 


me due progetti scritti. Uno 
in Pascal con almeno 1.500 
istruzioni e l’altro, più breve, 
in Assembler. 

«Gli studenti hanno tem¬ 
po un mese per realizzare 
questi programmi e renderli 
perfettamente funzionanti», 
spiega Marco Malocchi. 
«Lavorano In gruppi di tre, 
mediamente per più di otto 
ore al giorno, dimostrando 
un grande entusiasmo. Del 
resto io stesso sono convin¬ 
to che programmare signifi¬ 
ca apprendere le tecniche 
necessarie a dominare lo 
sviluppo sul calcolatore e 
determinare il modello più 
corretto per risolvere ogni 
problema. Non a caso In un 
programma che presenta 
un migliaio di istruzioni è fa¬ 
cile lasciarsi fuorviare dai 
dettagli. Perciò io cerco di 
accelerare al più presto l’e¬ 
sperienza. E i miei studenti, 
già alla fine del primo anno 
di corso si possono offrire 
nel mercato del lavoro come 
professionisti della pro¬ 
grammazione.» 

E infatti Apple, che non 
sbaglia, promuove quasi 
tutti con 30. E, in molti casi, 
anche con la lode. 



Scambio 
di computer 

L’idea gli è venuta mentre 
lavorava come redattore 
davanti a un Apple, negli uf¬ 
fici di un giornale di compu¬ 
ter. Sembrava stravagante, 
agli inizi, ma oggi John 
Craig è un imprenditore con 
tutte le carte in regola, e al¬ 
meno settemila persone pa¬ 
gano 5 dollari a testa, tre 
volte l’anno, per visitare il 
suo Computer Swap Ameri¬ 
ca. Cos’è? Un marcatone 
dell’usato e dello scambio. 
Si tiene a San Jose, in Cali¬ 
fornia, e subito prima dei tre 
appuntamenti annuali tutte 
le case produttrici ricevono 
una lettera di Craig, che le 
invita ad approffittare del¬ 
l’occasione per liberarsi di 
tutti i loro fondi. 

Le aziende, per uno 
stand, pagano 125 dollari; I 
privati che vogliono disporre 
di un tavolo-bancarella pa¬ 
gano invece 40 dollari. 
Craig, soddisfatto, incassa. 
E dice: “È il modo migliore 
per chi comincia: con po¬ 
chissimi dollari si porta a ca¬ 
sa un computer usato sì, ma 
funzionante, senza contare 
il software che può avere 
gratis..." 


Applicar 
m’è dolce 
in questo mare 

Se lo è regalato per Nata¬ 
le, l’anno scorso, quando di 
computer e di linguaggi di 
programmazione non sape¬ 
va assolutamente nulla. Ma 
pochi mesi sono bastati a 
Franco Spagnuolo, architet¬ 
to e amministratore unico 
della Nauticard Srl per rivo¬ 
luzionare tutta la sua azien¬ 
da, leader nel settore delle 
carte nautiche da diporto. 
«Devo confessare che l’Ap¬ 
ple Il mi ha procurato non 
pochi mal di testa, perché 
ho voluto fare tutto da me. 
Ma adesso l’elefantiaco e 
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Un problema 
di Etichetta 

Nuovo lavoro in vista per 
il già indaffaratissimo Apple 
Il di Luigi Veronelli, custode 
e guida d’una tra le più pre¬ 
stigiose rassegne della mi¬ 
gliore produzione vitivinico¬ 
la italiana e mondiale. Vi in¬ 
vecchiano infatti, ben ordi¬ 
nate e catalogate, oltre 62 
mila bottiglie di vini pregiati, 
contraddistinti da etichette 
diverse. E il maggiore scrit¬ 
tore italiano di gastronomia 
e principe tra gli enologi di 
fama Internazionale, i suoi 
vini. Il ha assaggiati proprio 
tutti, alla media di 40 al gior¬ 
no: 20 bottiglie prima di co¬ 
lazione e altre 20 prima di 
cena. Per classificarli, cata¬ 
logarli, ma anche per ritro¬ 
varli, nella vasta cantina 
della sua casa di Bergamo 
Alta, Veronelli oggi non sa¬ 
prebbe più fare a meno del 
computer. 

Nome del produttore, luo¬ 
go d’origine, annata, nume¬ 
ro di bottiglie prodotte, com¬ 
menti: tutto finisce su di¬ 
schetto, con aggiornamenti 
continui, in modo che ogni 
scheda sia sempre pronta 
per le prossime edizioni dei 
libri di Veronelli, come il Ca¬ 



talogo dei vini italiani, che 
reca la descrizione di oltre 
3.500 bottiglie, e il Catalogo 
dei vini del mondo, con una 
selezione delle prime mille 
etichette in commercio. 

Sempre grazie a un data¬ 
base realizzato con l’Apple, 
Veronelli ha classificato e 
aggiorna le schede dei primi 
1.300 ristoranti d’Italia, per 


l'annuale guida intitolata / 
Ristoranti di Veronelli, 
stampato indispensabile a 
ogni buongustaio. 

E poiché ogni libro di Ve¬ 
ronelli è un successo garan¬ 
tito, non è un caso che l’Ap¬ 
ple debba occuparsi anche 
della sua contabilità perso¬ 
nale. Ma Gino Veronelli ha 
deciso che l’AoDle ha anco¬ 


ra del tempo libero, e può : 

aiutarlo nella pianificazione j 

di un suo nuovo periodico di 
imminente pubblicazione. È 
L'Etichetta, una rivista sofi¬ 
sticata con una concezione 
edonistica della vita, che 
conta di scrivere, almeno 
per gli articoli che porteran¬ 
no la sua firma, con il Pro- 
writer. 


articolatissimo programma 
di gestione ordini che ho 
realizzato fa praticamente 
tutto da sé. La segreteria 



i nuovi ordini. Poi l’Apple co¬ 
mincia a rimuginare e spara 
bolle, fatture, scarico di ma¬ 
gazzino (e qui deve gestire 
più di 300 voci), eccetera. 

I primissimi problemi 
Spagnuolo li aveva affronta¬ 
ti con il Personal Data Base, 
facendosi aiutare nella ge¬ 
stione di dati tipo conti ban¬ 
ca, saldo fornitori, gestione 
insoluti. E intanto studiava i 
manuali. Ma via via che le 
notti trascorse in ufficio si fa¬ 
cevano più lunghe, gli veni¬ 
va sempre più voglia di por¬ 
tarsi il computer a casa. Co¬ 
sì l’Apple per un po’ ha fatto 
la spola e Spagnuolo impa¬ 
rava il Basic insieme alla fi¬ 
glia maggiore, llaria, di 10 
anni. «Eravamo entrambi 
allo zero assoluto», dice 


l’architetto, «ma ora che il 
computer devo per forza te¬ 
nerlo in ufficio, sto pensan¬ 
do di prenderne un altro da 
tenere a casa, per llaria di 
giorno, e per poter continua¬ 
re a lavorare anch’io, dopo 
cena...» 

Convinto che le possibili 
applicazioni nel suo campo 
sono infinite, e che il vero 
problema sia solo quello di 
stabilire un diritto di prece¬ 
denza, Spagnuolo sta stu¬ 
diando ora un programma 
che lo aiuti nell’aggiorna- 
mento delle carte nautiche, 
conservando su dischetto 
tutte le informazioni e le in¬ 
dicazioni che di costa in co¬ 
sta e di porto in porto posso¬ 
no rivelarsi preziose per chi 
va per mare. 
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Applicando pubblica 
gratuitamente i piccoli 


Piccola ma dinamica 
e aggressiva 

Software House 

che commercializza 

pacchetti originali 

italiani e prodotti leader 

sul mercato Usa 

per potenziare la sua rete 

di vendita è interessata 

a contattare 

per le regioni libere 

annunci di Ricerca di 
personale e garantisce 
la massima riservatez¬ 
za. Per le inserzioni evi¬ 
denziate e di grande 
formato scrivere o tele¬ 
fonare a Applicando, 
Corso Monforte 39, 
20122 Milano, tei. 
70.24.29/70.28.03. Op¬ 
pure a Studiosfera, i* 
Strada 24, S. Felice di 
Segrete (Milano), tei. 
753.21.51/753.39.39 



mmsmANT! musivi 

già introdotti presso Computer-Shop e Aziende 

Scrivere a: 

Applicando 

Servizio inserzioni 

Corso Monforte 39 

20122 Milano 

Precisare sulla busta 

il riferimento: A204 



Scuola di Personal Computer 
con sede a Milano 
cerca per collaborazione part-time 

PROFESSIONISTI 

con esperienza di package applicativi 
su Apple, interessati ad attività di 

docenza 

I collaboratori che cerchiamo sono Avvocati, Commerciali¬ 
sti, Medici, Dentisti, Ingegneri, Dirigenti, ecc. che usano 
normalmente un Apple per lo svolgimento della loro attività, 
e, dotati di comunicativa e predisposizione all'insegnamen¬ 
to, sono interessati a insegnare a loro colleghi come trarre 
vantaggio dal computer. 

Scrivere a: 

Applicando 
Servizio inserzioni 

Corso Monforte 39 Precisare sulla busta 

20122 Milano il riferimento: A202 


Istituto privato cerca 

disponibile ore serali. Ottimo compenso orario. Sede di lavoro; 

Milano. 

Scrivere a: Applicando / Servizio inserzioni Precisare sulla busta 
Corso Monforte 39 / 20122 Milano il riferimento: A203 



Casa editrice cerca 


Autori-collaboraton' 


con buona conoscenza Basic e/o Pascal e/o Assembler Apple 
per stesura testi e programmi originali, traduzioni dall’inglese, dal 

francese, 

o dal tedesco, adattamenti, revisioni di manoscritti, ecc. 


Inviare dettagliato curriculum a: Applicando / Servizio Inserzioni 

Corso Monforte 39 / 20122 Milano Precisare sulla busta il riferimento: A205 


Piccola azienda centro Mi¬ 
lano cerca segretaria con co¬ 
noscenza AppleWriter//, 
QuIckFile, Visicalc, o alme¬ 
no con buona disponibilità a 
imparare. Precedente espe¬ 
rienza lavoro d'ufficio indi¬ 
spensabile. Sarà criterio pre¬ 
ferenziale una buona cono¬ 
scenza dell'Inglese parlato e 
scritto. Scrivere a: Applican¬ 
do, Servizio inserzioni. Cor¬ 
so Monforte 39, 20122 Mi¬ 
lano, indicando sulla busta 
il riferimento: A206. 

Vero artista Apple-graflca 
cercasi per videobozzetti da 
dischetto, cartoni animati, 
illustrazione giochi, ecc. 
Scrivere a: Applicando, Ser¬ 
vizio inserzioni. Corso Mon¬ 
forte 39, 20122 Milano, In¬ 
dicando sulla busta il riferi¬ 
mento: A207. 































Milano 

10-15 settembre 

Lisa-flash di mezz’ora al¬ 
lo Smau ’83, il salone del¬ 
le macchine e delle at¬ 
trezzature per ufficio, 
nelle salette allestite in¬ 
torno allo stand della Iret 
Informatica. Prevedendo 
una grande affluenza di 
pubblico di fronte agli 
schermi del nuovo e rivo¬ 
luzionario computer Ap¬ 
ple, è stata prevista una 
serie di seminari quoti¬ 
diani. Per facilitare afflus¬ 
si e deflussi di pubblico è 
già in funzione il servizio 
di prenotazioni telefonico 
(Uffici Iret di Milano, tei. 
02/8242156). Ecco l’a¬ 
genda: 9.30: Lisa, una 
stazione di lavoro per l’uf¬ 
ficio moderno; 10.00: Li- 
sa-Calc; 10.30: Lisa- 
Graph; 11.00: Lisa- 
Draw; 11.30: Lisa, una 
stazione di lavoro per l’uf¬ 
ficio moderno; 12.00: Li- 


sa-Project; 14.30: Usa, 
una stazione di lavoro 
per l’ufficio moderno; 
15.00: Lisa-Write; 15.30: 
Lisa-List; 16.00: Lisa- 
Project; 16.30: Lisa- 
Calc; 17.00: Usa-Graph; 
17.30: Lisa-Draw. 


Cannes 

3-7 ottobre 


Chi volesse fare il punto 
sui presente e sulle pro¬ 
spettive delle nuove tec¬ 
niche di vldeocomunlca- 
zione, non perda il Vld- 
com ’83, che si terrà al 
palazzo dei festival di 
Cannes, in parallelo al 
Mijid (1® Mercato interna¬ 
zionale dei videogames 
e dei personal compu¬ 
ter). Per maggiori Infor¬ 
mazioni scrivere a Mijid o 
Vidcom, 179 Avenue Vic¬ 
tor Hugo, 75116 Paris. 


Hit-Parade 


Applicando ha compilato una classifica dei programmi 
più venduti nel bimestre scorso, in collaborazione con 
Computer Center - Reggio Emilia, Computer Systems 
- Bologna. Computerà - Lecco, Dataplan - Bolzano, 
E.D.P. Market - Roma, Bits & Bytes - Milano. 

I computer-shop che desiderano collaborare al rile¬ 
vamento per i prossimi numeri Inviino ad Applicando, 
corso Monforte 39, 20122 Milano, entro la fine di ogni 
mese, i dati relativi ai dieci programmi che più hanno 
venduto. I programmi più venduti nei mesi di maggio 
e giugno (fra parentesi la classifica per lo scorso bime¬ 
stre), sono stati: 


1. 

AppleWriter//e 

(1) 

2. 

VisiCalc 

^ (2) 

3. 

Quick File// 

^(4) 

4. 

Visidex 

(8) 

5. 

Visitile 

(-) 

6. 

PFS 

(10) 

7. 

Business Graphics 

(9)1 

8. 

Locksmith 4.1 

(7) 

9. 

Personal data base 

(6) 

10. 

Visischedule 

(-) 



Sals Informatica: 

Tutti i servizi 
per la vostra automazione. 

□nsais 

JDu Inffomiaiica 

Via G. D’Annunzio 2-35 — 16121 Genova tei. (010) 589.327 


Apple 
a Genova. 

La mela 

secondo Sals Informatica: 

Sistemi completi pronta consegna 
Tutti gli accessori e le periferiche 
Materiali di consumo 
Programmi per ogni esigenza 
Assistenza tecnica 
Corsi a tutti i livelli 
Consulenza 

Informazione tecnica e commerciale 


Show room 


Distribuzione per l'Italia 


^appkz computer IRET ’ 

informatica 


Flanaghan 















a[;')fr.t!eosa 




Qui 

Pagine Gialle 


Trecento e passa pagine; 
più di 650 packages appli¬ 
cativi elencati con tutte le in¬ 
dicazioni di utilizzo, di prez¬ 
zo e di reperibilità; indici al¬ 
fabetici, analitici per utenza 
e analitici per produttore; 
l’elenco di tutte le pubblica¬ 
zioni che si occupano di Ap¬ 
ple; l’elenco del rivenditori e 
dei centri di assistenza: edi¬ 
to dairiret, è finalmente di¬ 
sponibile il nuovo volume 
delle Pagine Gialle del soft¬ 
ware per Apple. 

Fra le applicazioni segna¬ 
late per utenti specifici, nu¬ 
merosissime quelle di inge¬ 
gneria, per compagnie di 
assicurazioni, banche e 
professionisti. Ma non sono 


state trascurate neppure le 
imprese edili, le società di 
servizi, le aziende di produ¬ 
zione 0 di trasformazione. 
Medici, agenti di viaggio, 
operatori del turismo e dello 
sport e responsabili di enti 
pubblici possono trovare 
programmi sulla misura del¬ 
le loro esigenze e già collau¬ 
dati, ma non mancano pac¬ 
chetti applicativi neppure 
per il settore del commercio. 

A far la parte del leone 
sono comunque i giochi. 
Best-seller sicuro e fonte 
certa di nuove idee per uti¬ 
lizzare meglio i computer 
Apple, il volume non sarà 
quest’anno distribuito gra¬ 
tuitamente ma posto in ven¬ 
dita a 5 mila lire. Lo si può 
trovare nei migliori compu¬ 
ter-shop, o, in caso di diffi¬ 
coltà, chiedere direttamente 
alla Iret Informatica (Via Bo¬ 
vio 5,42100 Reggio Emilia). 


Apple 

e stetoscopio 

Cosa fa un Apple II In 
ospedale? Al San Paolo di 
Milano, Installato come nel¬ 
la foto qui in alto e collegato 
a sonde e preamplificatori 
medicali Beckman, esegue 
il monitoraggio del Ph nello 


stomaco e nell’esofago del 
paziente. Grazie anche al 
software appositamente 
predisposto, associa alle ri¬ 
levazioni di Ph l’aumento 
della pressione addomina¬ 
le, le deglutizioni, i sintomi 
riferiti dal paziente. Per ulte¬ 
riori informazioni rivolgersi 
alla Deltron Srl, Via S. Gal- 
dlno 2, 20154 Milano, tei. 
02/3493744. 


Dischetto 
e Applicard 

Sia pure con il ritardo (di 
cui ci scusiamo) dovuto al 
successo di abbonamenti ri¬ 
scosso da Applicando fin 
dal suo primo numero, e 
dalia conseguente duplica¬ 
zione forzosa su scala indu¬ 


striale dei dischetti, nonché 
ad altri problemi vari di cre¬ 
scenza, il dischetto omag¬ 
gio dovrebbe ormai essere 
arrivato a casa di tutti gli ab¬ 
bonati. Poste consentendo. 
Più dolorosa Istoria per Ap¬ 
plicard: ma arriverà anche 
lei, nessuno tema. E prima 
di Natale, per Bacco! Lo 
promettiamo e... torniamo a 
scusarci. 


Chi vincerà 
Watanabe 

Nuovo di zecca, sei pen¬ 
ne colorate, plano di scrittu¬ 
ra inclinato, nuove cinghie 
di trasmissione che hanno 
consentito una notevole ri¬ 
duzione della rumorosità, 
interfaccia 8 bit parallela 
standard Centronics (ma 
esistono anche le versioni 
con interfaccia seriale RS- 
232-C e con Interfaccia 
IEEE-488), possibilità di re¬ 
golare la velocità di plottag- 


gio da software: la Watana¬ 
be Instruments Co. lancia 
una nuova serie di plotter. 
Costa 1.635.000 più Iva. Ma 
un abbonato di Applicando 
lo riceverà per Natale del 
tutto gratis, e con gii auguri 
della redazione (vedere a 
pag. 59) La velocità massi¬ 
ma di plottaggio è di 15 cm/ 
sec., e il formato massimo 
previsto per il foglio da dise¬ 
gno è di 42x29,7 cm. Chi 
desiderasse ulteriori Infor¬ 
mazioni può rivolgersi alla 
SHP Computer Srl, Via Gia- 
cosa 5, 20127 Milano, tei. 
02/2870524. 












Per averlo 
subito 

Un prestito con rimborso 
rateale per comprare la bar¬ 
ca? Oibò: la barca è come 
un buco in mare, da riempi¬ 
re di denaro. Un computer 
invece, saggiamente utiliz¬ 
zato, denaro può fame gua¬ 
dagnare e risparmiare. E al¬ 
lora... 

E allora molti computer- 
shop hanno già stipulato 
una convenzione con la 
Banca d'America e d'Italia e 
sono in grado di fornire tutte 
le delucidazioni e l'assisten¬ 
za del caso. Altrimenti ci si 
può rivolgere direttamente 
alla più vicina filiale della 
Banca ottenendo, in pochi 
giorni e senza troppe com¬ 
plicazioni, un finanziamento 
fino a 8 milioni di lire, rimbor¬ 


La mela di Èva 

La mela torna a tentare 
Èva. Ci hanno pensato in 
tre: Apple, il professor Fran¬ 
cesco Grianti, deH’Universi- 
tà di Pesaro, e la fabbrica di 
cucine BFB. Ed ecco che la 
cucina con Personal incor¬ 
porato è una realtà. Insieme 
con il caffè mattutino forni¬ 
sce i bioritmi per tutta la fa¬ 
miglia. A mezzogiorno si 
può interrogare il computer 
per farsi suggerire una ricet¬ 
ta, che può essere stampa¬ 
ta con tanto di istruzioni, a 
scelta fra un’ampia gamma 
suddivisa fra care, meno ca¬ 
re, economiche, facili, diffi¬ 
cili, e perfino a seconda del¬ 
le calorie. Nel pomeriggio si 
può richiedere la lista dei 
compleanni e, servendosi 
della rubrica telefonica in¬ 
corporata nell'Apple, si tele¬ 
fona a chi di dovere per i 
relativi auguri. Alcuni giochi, 
tra cui gli scacchi, rappre¬ 
sentano una valida alterna¬ 
tiva alla televisione. Un oro¬ 
logio a video permette di 


non perdere mai la nozione 
del tempo, mentre l’elenco 
del cibi contenuti nel freezer 
è gestito come un magazzi¬ 
no: tra le scorte e gli “artico¬ 
li” in esaurimento, diventa 
facile decidere cosa sgelare 
prima di coricarsi. 

Questo è solo l’Inizio: so¬ 
no infatti allo studio alcuni 


programmi didattici. Presto 
in cucina Apple farà ripas¬ 
sare le lezioni, con buona 
pace di mamma che potrà 
dedicarsi a qualche manica¬ 
retto in libertà. Per saperne 
di più, scrivere a: Prof. Fran¬ 
cesco Grianti, Università di 
Pesaro, Via S. Chiara 26, 
61029 Urbino. 



sabili in comode rate in un 
periodo che può andare dai 
6 ai 42 mesi. 

É una formula che con¬ 
sente di poter disporre subi¬ 
to del personal computer 
desiderato, ma è ideale so¬ 
prattutto per chi sa già come 
monetizzare I vantaggi che 
possono derivargli dall’ave¬ 
re In casa un Apple (o dalla 
periferica acquistata grazie 
al finanziamento): in questo 
caso sarà infatti lo stesso 
computer a pagarsi rate e 
interessi, con I proventi che 
produce. 

Il prestito può essere ri¬ 
chiesto da chiunque abbia 
compiuto 18 anni e possa 
dimostrare un reddito sicuro 
derivante da un rapporto di 
lavoro dipendente, profes¬ 
sionale o imprenditoriale. 
Purché, naturalmente, non 
abbia protesti o procedi¬ 
menti a carico. 


Anche 
a nolo 

No, non da portare a ca¬ 
sa. Ma da usare sul posto sì. 
E il posto è il Centro Infor¬ 
matica Personale di corso 



Vercelli 9 a Milano. “La no¬ 
stra è una scuola,” dice 
Oscar MazzarioI (nella fo¬ 
to), “e chi va a scuola ha poi 
bisogno di esercitarsi. Così 
abbiamo pensato che, se 
non si dispone di un Apple a 
casa o in ufficio, possiamo 
affittarlo noi: può essere an¬ 
che un modo per Imprati¬ 
chirsi e decidere l’acquisto 
con maggiore consapevo¬ 
lezza. MazzarioI e i suoi col- 
laboratori tengono corsi di 
introduzione al VIsicalc (4 
ore, 100 mila lire più Iva), 
introduzione al Basic (12 
ore, 200 mila lire più Iva), 
introduzione alle applicazio¬ 
ni del personal computer (8 
ore, 150 mila lire più Iva), 
ma organizzano anche se¬ 
minari su misura per azien¬ 
de. Per l’Apple II il prezzo 
del noleggio, dietro prenota¬ 
zione (tei. 02/439036), è di 
15 mila lire l’ora. 




11 







lo applico, 
tu applichi? 

La pubblicità su 
Applicando è informazione. 
Chi legge Applicando 
possiede un computer 
Apple o sta per acquistarlo. 
Oppure sta per cambiarlo 
con un Apple //e. 

O con un Lisa. 

Oppure non lo cambia 
affatto, se lo tiene stretto, 
ma vuol sapere dove, 
come e cosa fa 
veramente per lui. 

Una nuova marca 
di dischetti? 

Una nuova 
Software House? 

Una nuova stampante 
a basso prezzo? 

Per chi applica, 
è importante saperlo. 
Subito. 


Per la pubblicità su queste 
pagine, telefonare allo 
02-702429 

oppure scrivere a: 

Applicando Ufficio Pubbiicità 
Corso Monforte 39, 20122 Milano 


Cosa fa 
Mondadori 
per voi 

Libri elettronici? Sissi¬ 
gnore. Mondadori mostra di 
crederci, e in collaborazione 



con altri editori europei e 
americani sta lanciando 
strumenti didattici inediti fi¬ 
no a questo momento sul 
mercato italiano. Il libro-pro¬ 
gramma “Fisica ottica” (nel¬ 
le foto) è fra i primi della se¬ 
rie, e anche se in futuro ver¬ 
rà adattato per altri personal 
computer, per il momento è 
disponibile solo per Apple. 

Ma \a più grossa novità 
didattico-elettronica in casa 
Mondadori riguarda il Logo, 
il famoso linguaggio peda¬ 
gogico studiato presso il 
Mit, il Massachusetts Insti- 
tute of Technology, che 
consente l’uso dell’elabora¬ 
tore anche ai bambini nella 
primissima età scoiare. Del 
Logo Mondadori parleremo 
più diffusamente nei prossi¬ 
mo numero di Applicando. 



Apple acquista azioni Iret 


La Apple Computer Ine. e 
la Iret Informatica Spa han¬ 
no annunciato di aver rag¬ 
giunto un accordo in base al 
quale la Apple ha acquistato 
azioni delia Iret, la società 
che dal 1979 distribuisce 
prodotti Apple in Italia. 
“Questa partnership,” ha di¬ 
chiarato il presidente della 
Iret, Vittorio Maria Lasagni, 
“esprime un significativo 
impegno da parte della Ap¬ 
ple nei confronti d^li utenti 
italiani. Siamo sicuri che 
questa decisione rafforzerà 


ulteriormente le vendite dei 
prodotti Apple e ci permette¬ 
rà di fornire un servizio an¬ 
cora migliore ai clienti.” 

Anche se non si conosco¬ 
no i dettagli sulla quantità di 
azioni Iret acquisite da Ap¬ 
ple, la notizia assume il va¬ 
lore di conferma della fidu¬ 
cia che la Apple ripone nel 
suo distributore italiano, e 
del desiderio di continuare a 
collaborare in modo ancora 
più stretto fra le due società, 
su un mercato in fortissima 
espansione. 













Softwaie 
su misura 


o 


accaesse informatica s.r.i. 


22100 COMO - ALBATE • VIA ACQUANERA 46 • TEL (031) 591040 



^ Una Bentley Mulsanne con in più 50 milioni 
p/ di optionais, o una 127 usata 

^ da non tenere nemmeno in garage? 

V Un’Alfa 33 o una BMW Turbodiesel? 

E se l’auto me la regalano 
ma benzina, bollo e assicurazione devo pagarli io? 
Le tabelle di Quattroruote sono standard. 
Per calcolare e confrontare su misura, 
ecco un programma scritto con il Last One... 


I costi 
dell’auto 
che avrò 


U na Fiat Uno 70 S 3 porte, 1301 
cc, costa 306,35 lire al chilome¬ 
tro se la si tiene due anni e in due 
anni si percorrono 40.000 chilome¬ 
tri. O invece 248,90 lire al chilome¬ 
tro percorrendo nello stesso perio¬ 
do 60.000 chilometri. Se lo afferma 
Quattroruote c'è da crederci, e in 
linea di massima è un dato validis¬ 
simo da confrontare con altri presi 
dalla stessa tabella, cioè tutti asso¬ 
lutamente omogenei e calcolati 
con gli stessi criteri. 

Ma cosa succede nella pratica di 
ogni giorno? Quattroruote consi¬ 
dera un tasso (non goduto) del 10% 
sul capitale investito per l’acquisto 
della vettura, ma a me le banche 
darebbero 18%, a te il 13%, a lui il 
14.5%. Il garage, calcolato da Quat- 


}l RQ 1 

2« RB 1 « COSTI CHILQHETRICI * 
31 Rm < <C) 1983 COPYRIGHT i 
48 RB1 > APPLICANDO « 

51 REN < E... LAST ONE • 

48 REN 

98 REN -COSTIAHTO WRITTEN BY THE 
LAST ONE 
188 GOTO 1418 

118 OK » 1: ON NOT NO GOTO 138: 

PRIMI CHR$ ( 8 )*>*ì 
128 K - PEEK < - 14384): ON K < 
128 GOTO 128: PRIMI CHR$ ( 8 )' 
• 5 : IF K= 141 THW 0K = 8 : 
POKE - 14348,8: RETURN 
138 DL = m < LEFT 8 <A$,1)):HL 
= WL ( NIDI <A8,2)) - DL - 
NOT NOT DL: ON ASC (A 8 ) < 45 
GOTO 188: IF ASC <A 8 ) - 44 
THEN DL - 99: GOTO 188 
148 8 » 8 :A 8 » FOR L » 1 TO 
NL: PRIMI NE)a : PRIMI 
HID 8 <B$,1,NL); 

158 GEI K 8 :K> ASC (K$ * 88 ): 

IF K - 8 THEN ON K= 13 BOTO 
178: ON HL < « S OR K < 32 OR 
K » 44 OR K = 34 OR K = 58 
GOTO 158:S ^ S M: PRINT 
KipAi » A 8 4 K 8 : GOTO 158 
148 PRIMT MID 8 (K 8 ♦ ♦ 

K8,l,3 » S)j:S = S - NOT NOT 
S:A 8 - NID 8 (A8,1,S): GOTO 
158 

178 PRINT H1D8 (SI,1,HL - S): 
RETURN 

188 DC > 8 :NC = 8 :D > 8 :S > 8 :FD 
» DL = 99:A8 » PRINT HID 8 
(U8,1,NL)|: IF DL AND DL - 99 
TH01 PRINTMID 8 (U8,1,DL) 
HID 8 (B 8 , 1 ,DL 4 1 - NOT NL); 
198 PRINT CHR 8 ( 8 ); 

288 GETK 8 :K» ASC (K 8 4 88 ): 


ON K = 8 GOTO 248: (M K = 13 
AND LB4 <A 8 ) GOTO 288: ON (K 
< 45 OR K ) 57 OR K = 47) GOTO 
288: IF K » 44 THEN ON D OR 
NOT DL GOTO 288:D - 1: PRIMI 
N1D8 <B8,1,NL 4 NOT NL - NOT 
NC);:A 8 = NID 8 ('-•,2 - S) 4 
STR 8 ( ABS < MAL (A 8 ))):NC - 
LEN (A 8 ) - 1: IF DL < 99 AND 
HL THEN PRIMI RIGHT 8 <S 8 4 
A 8 ,HL); 

218 IF K = 44 THEN ON DL < 99 
GOTO 248:DL = 18 - NC: PRINT 
A 8 N1D8 (U8,1,DL)' ' HID 8 
<B8,1,DL 4 DpDL * DL - NOT 
NOT DL: GOTO 248 

228 IF K = 45 THBl ON S OR D OR 
NC GOTO 288:S ^ 1 

238 ON NC 4 NOT D 4 (HL ) 9) < 
NOT (S OR (DL = 99)) ) NL - (( 
NOT S 4 NOT D 4 (NL ) 9) » 

(DL < 99)) * (DL = 99)) OR DC 
4 D ) DL GOTO 288:MC = NC 4 
NOT D:DC > DC 4 D 

248 IF NOT D AND LBl (A 8 ) THBl 
PRIMI H1D8 (88,1, LEN (A 8 ) 4 
1)A8; 

258 A 8 -A 8 4 K 8 : PRINT K 8 ;: GOTO 
280 

248 CALL - 1854: ON NOT LEN 
(A 8 ) GOTO 288: IF NOT FD TH» 
PRINT LEFT 8 (B 8 ,HL 4 D 4 D < 
DO;: GOTO 188 

278 DL = 99: PRINT LEFT 8 (B 8 ,NL 
« NOT D 4 D • LB( (A 8 ));: 
GOTO 188 

288 IF NOT DL OR (DL AND NOT 
D) THB4 A 8 » STR 8 ( MAL 
<A 8 )): PRIMI N1D8 (88,1,NL); 
R1GHT8 (S 8 4 A 8 ,NL);: IF NOT 
DL OR DL - 99 THB4 RETURN 

298 IF NOT D THBI PRINT NID 8 


(■8.*,2 - NOT HO; 

388 PRINT HI08 ('88888888888', 
1,DL - DO;: RETURN 
318 MTA8 23: HTA8 1: CALL - 
958: HTAS 1 4 INT «48 - LEN 
(HI)) / 2): PRINT NI' '; 

328 GETKI:K= ASC (Kl): ON 
NOT (K - 78 OR K s 89) GOTO 
328: PRIMI Kl;: FOR I « 1 TO 
l:6ETKI:As ASC (KI):I » (A 
« 13 OR A < 8): NE)a : ON A « 

8 GOTO 318: PRIMI :A = K 89: 
MTA8 23: HTAe 1: CALL - 958: 
RETUm 

338 Al = NIDI ('-',2 4 SON (A)) 
4 STRI ( INT ( AbS (A))): IF 
(A - INT (A)) OR (D AND D < 
18) TH0I Al = Al 4 '.' ♦ NIDI 
( STRI (A) 4 NIDI ('88888888 
88',1 4 D » (D ) 9», iBi (Al) 
4 2 - NOT INT ( ABS (A)),D) 
348 Al » RIGHTI (SI 4 AI,H):AI » 
NIDI «r 4 Al,l 4 ( STRI ( 

INT (A)) = STRI ( INT ( (ML 
(Al))))): RETURN 
358 HOHE : llflERSE : VTAB 1: 

KTAB 1: PRIMI ' 

APPLICANDO': NORNAL : MTAB 3: 
KTAB 12: PRINT 'COSTI 
CHILOMETRICI': MTAB 4: HTAB 
12: FOR N s 1 TO 18: PRINT 
NE)a : IIWERSE : MTAB 4: 
KTAd 18 

348 PRIMI 'HBflJ'': NORlttL : MTAB 
9: HTAB 9: PRINT 
'AGGlORN.INTER/CARBUR.d)': 
MTAB 18: HTAB 9: PRINT 
'INSER1M.NU(HM AUT0...(2>': 
MTAB 11: HTAB 9: PRINT 
'EIABOIMZ. COSTO/m...(3)': 
MTAB 12: HTAB 9: PRIMI 

Segue a pag. 16 




troruote, non sempre va considerato: 
io posso lasciare la macchina per stra¬ 
da, tu puoi metterla nel box, lui la par¬ 
cheggia sotto una tettoia. Oppure: a 
parità di prezzo d'acquisto, se compro 
un'Alfa 33 nuova nuova la tengo in 
garage, se compro invece una Merce¬ 
des usata la faccio dormire sulla pub¬ 
blica via. 

Poi, appunto, l'usato. Come posso 
calcolare quanto mi costa al chilome¬ 
tro una vettura che nuova costerebbe 
una cifra e usata una cifra compieta- 
mente diversa? Ovvio che, persona¬ 
lizzando, i dati non si adattano più a 
tutti e a tutte le situazioni, e che anche 
i confronti fra auto e auto possono 
diventare opinabili. E tuttavia, se si 
dispone di un Apple, perché non pro¬ 
vare a confrontare anche costi chilo- 


Segue da pag. 15 

■NOOIFICHE FILE Ain0..<4>* 

379 VTAB 13: HTAB 9: PRINT 

•FINE.<5>'! 

VTAB 22: HTAB 1: CALI - 958: 
kTTAB 23: HTAB 12: PRINT 
•COtWlD REQUIRED •; 

388 VTAB 23: HTAB 29:AI * 'ei': 
GOSUB 118:A » (Al): ON 

NOT A OR A ) 5 GOTO 388: HOME 
:P > 8:LC = 8: ON A GOTO 
398,568,818,1848,1688 
398 PA - 4 1 

488 PA > PA - (PA > 1) 

418 QN PA > GOTO 1448: VTAB 
21: PRINT : IF NOT <QA) THEN 
PRINT DDI*CLOSE*:OA 1:0B = 
8 : PRINT DM'OPENINTERESSI 
/CARBUMNTI,L15,S6,Dr 
428 PRINT DM'READINTERESSI/ 
CARBUIMNTI,R'PA: FOR I - 1 TO 
3: INPUT Aid): NE)a :PA » PA 
* 1: PRINT ODI 

438 NONE t IMIERSE : I/TAB 1: 

UTAD I• PDIMT • 

APPLICANDO*: NOm : UTAB 3: 
HTAB 12: PRINT 'COSTI 
CHILOMETRICI': VTAB 4: HTAB 
12: FOR N » 1 TO 18: PRINT 
NEXT : IWERSE : VTAB 6: 

HTAB 4 

448 PRINT 'AGGIOimiENTO 
INTERESSI/CARBUfUNTI': NORMAL 
: LfTAB 9: HTAB 8: PRINT 
•BBlZIfM SUPER LIRE/L': VTAB 
18: HTAB 8: PRINT 'BISOLIO 
DIESEL L/L': VTAB 11: HTAB 
8 : PRINT 'INTERESSI ATMUI' 

458 VTAB 9: HTAB 38 :A - UAL 
(AI(l)):Ms 5:D> 8 : GOSUB 
338: PRINT Al: VTAB 18: HtAB 
38 :A» VAL (AI<2)):H> 5tD- 


rURCA E NODELLO B/D 


FIAT 131 2588 D SUP.iVtlOR D 
PORSCHE 924 TURBO B 
MERCEDES 388 D D 
MERCEDES 198 E B 
ex 25 PALIAS DIESEL D 
ALFETTA QUADRIFOGLIO B 
BBiTLEY MULSATME B 
GATfM COUPÉ 2888 B 
FIAT ARGBITA 2588 DIESEL D 
ALFA 33 B 
MORGAN 4/4 1688 B 
GOLF GL GABRIOLn 1188 B 
VOLVO 768 GLE B 
VOLVO GLE TURBODIESEL D 


8 : GOSUB 338: PRINT Al: VTAB 
11: HTAB 33:A« VAL (AI(3)):H 
» 2:D = 8 : GOSUB 338: PRINT Al 
468 ON NOT MD GOTO 588 
478 VTAB 9: HTAB 38;AI >'85': 

GOSUB 118:IF OK THENAI(l)^ 
488 VTAB 18: HTAB 38:AI s '85': 

GOSUB 118:1F OK THEN AI<2)=AI 
498 VTAB 11: HTAB 33:AI = '82': 

GOSUB 118;IF OK THSl AI(3)=AI 
588 MI = 'IS THIS CORRECT Y OR 
N': GOSUB 318:MD= NOT A: IF 
NOT A GOTO 478 
518 PA = PA - (PA > 1) 

528 POKE 222,288:A = \ML 
(AI(1));M - 5:D » 8 : GOSUB 
338: ON ASC (Al) > 37 GOTO 
1658:AI(1) = STRI ( VAL 
(AI)):A- VAL (AI(2)):M > 5:D 
= 8 : GOSUB 338: ON ASC (Al) » 
37 GOTO 1658:AI(2) » STRI ( 
VAL(AI));A> VAL (AI(3)):M > 
2:D> 8 

538 VTAB 21: PRINT : IF NOT 
(QA) Tiei PRINT ODI'CLOSE':OA 
= 1:0B » 8 : PRINT DDI'OPENlN 
TERESSI/CARBUMNTI ,L15,S6,D1' 
548 PRINT DDI'WRITEINTERESSI/ 
CARBUMNTLR'PA: FOR I » 1 TO 
3: PRINT AI(I) CHRI (13);: 

NEXT :PA » PA 4 1 : PRINT 001: 
IF (PA ) Bt) THB( EA> PA - 1: 
PRINT ODI'URITEINTERESSI 
/CARBURANTI,R 8 ': PRINT EA: 
PRINT DDI'CLOSE* : M » 8 
558 GOTO 358 

5^ '"hOME^! inverse : VTAB 1: 

HTAB 1: PRINT ' 

APPLICANDO': NORM. : VTAB 3: 
HTAB 12: PRINT 'COSTI 
CHILOMETRICI': VTAB 4: HTAB 


COSTI CHILOMETRICI 


PREZZO 

(YKl 

COSTO/KH 

15182888 

3 

485. 

31446888 

3 

858. 

25468888 

5 

352. 

19688888 

3 

484. 

19354888 

4 

383. 

19868888 

3 

441. 

188422888 

5 

2471. 

18888888 

2 

584. 

16826888 

3 

363. 

13288888 

3 

371. 

24728888 

5 

794. 

13862888 

4 

487. 

28887888 

3 

546. 

27844888 

3 

425. 


12: FOR N s 1 TO 18: PRINT 
NEXT : IlWERSE : VTAB 6 : 
HTAB 18 

588 PRINT 'INSERIMENTO NUOVA 
AUTO': NORmL : VTAB 8 : HTAB 
14: PRINT 'mRCA E MODELLO': 
VTAB 18: HTAB 6 : PRINT 
'B)ENZINA • D)IESEL': VTAB 11: 
HTAB 6 : PRINT 'PREZZO DI 
ACQUISTO*: VTAB 12: HTAB 6 : 
PRINT 'COSTO B).ACCESSORI' 

598 VTAB 13: HTAB 6 : PRINT 
•STIMA KM RIVBIDITA': VTAB 14: 
HTAB 6 : PRINT 'STIIM PREZZO 
RIVO!.': VTAB 15: HTAB 6 : 

PRINT 'AWI DI UTILIZZO': VTAB 
16: HTAB 6 : PRINT 'COSTO AM4U0 
ASSIC.': VTAB 17: HTAB 6 : 

PRINT 'COSTO BOLLO CIRCOL.' 

688 VTAB 18: HTAB 6 : PRINT 
•COSTO ANNUO GAIM 6 E': VTAB 19: 
HTAB 6 : PRINT 'CONSUMO 
LITRI/llBm*: VTAB 28: HTAB 6 : 
PRINT 'SPESE Al#«€ NAN/RIP.' 
618 VTAB 9: HTAB 9:AI='825': 

GOSUB 118:IF OK THEN Bl(l)^ 
628 VTAB 18: HTAB 27:AI - 'Bl': 

GOSUB 118:1F OK THB4 BI(2)=AI 
638 VTAB 11: HTAB 27:AI> *89': 

GOSUB 118:IF OK THEN Bl(3)^ 
648 VTAB 12: HTAB 27:AI » *89': 

GOSUB 118:1F OK THEN Bl(4)^ 
658 VTAB 13: HTAB 27:AI>'89': 

GOSUB 118:IF OK THEN Bl(5)^ 
668 VTAB 14: HTAB 27:A|b *89': 

GOSUB 11B:IF OK THEN BI( 6 )>AI 
678 VTAB 15: HTAB 27:AI '82': 

GOSUB 118:IF OK THEN BI(7)=AI 
688 VTAB 16: HTAB 27:AI='87': 

GOSUB 118:IF OK THEN Bl( 8 )^ 
698 VTAB 17: HTAB 27:AI = '87': 
GOSUB 118:IF OK THEN Bl(9)^ 
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711 VTAB 18: HTAB 27;A$ » '(7*: 

BOSUB n 8 :lF OK THEN B$<ie)=At 
710 VTAB 19; KTAB 27;A0 * MA': 

BOSUB llOrlF OK THEN B$(ll)^ 
720 17TAB 20: HTAB 27:A$ ='08': 

BOSUB 110:]F OK THEN B0(12}=AÌ 
730 N$ » MS THIS CORRECT Y OR 
N': BOSUB 310:NO » NOT A: IF 
NOT A BOTO 610 

740 POKE 222 , 200 :B$( 1 ) > LERS 
<B$(1),25);B$(2) = LERS 
(B$<2),1):A= UAL (BÌ(3)}:N» 
9:0 s 0: BOSUB 330: ON ASC 
<Af) » 37 GOTO 1650:80(3) « 
STR0 ( UAL <A0)):A = (ML 
(B0<4)):H » 9:D > 0: BOSl» 

330: ON ASC (Ai) - 37 GOTO 
1650 

750 Bi(4) » STRi ( (ML (AÌ)):A» 
m (BÌ(5)):H» 9:0» 0: BOSUB 
330: ON ASC (Ai) » 37 GOTO 
1650:80(5) » STRi ( (ML 
(AÌ)):A» UAL (BÌ( 6 )):N » 9:0 
» 0: BOSUB 330: ON ASC (Ai) » 
37 GOTO 1650:80(6) > STRi ( 
(ML(AÌ)):A» m (Bi(7)) 

760 N » 2:0 < 0: BOSUB 330: ON 
ASC (Ai) » 37 GOTO 1650:BÌ(7) 

» STRi ( UAL (AÌ)):A » UAL 
(BÌ( 8 )):N » 7:0 » 0: BOSUB 
330: ON ASC (Ai) > 37 GOTO 
1650:BÌ(8) » STRi ( (ML 
(AÌ)):A» UAL (Bi(9)):N» 7:0 
» 0: BOSUB 330: ON ASC (Ai) » 
37 GOTO 1650 

770 Bi(9) » STRi ( W)L (AÌ)):A = 
m (Bi(10)):N = 7:0 » 0: 

BOSUB 330: ON ASC (Ai) » 37 
GOTO 1650:BÌ(10) » STRi ( UM. 
(AÌ)):A» UAL (60(11)):N» 
4:0» 1: BOSUB 330: ON ASC 
(Ai) » 37 GOTO 1650:60(11) = 


metrici apparentemente nient'affatto 
omogenei? Per esempio appunto Alfa 
33 nuova contro Mercedes usata, op¬ 
pure Pininfarina “Spidereuropa" da 
tenere in garage per cinque anni e 
pochi chilometri contro Alfetta con 
condizionatore da usare giornal¬ 
mente. 

Questo programma però offre qual¬ 
cosa anche a chi, per eccesso di ric¬ 
chezza, autofobia o altro, non fosse 
affatto interessato ai costi chilometri¬ 
ci. È stato realizzato infatti con il Last 
One, e ne pubblichiamo, oltre al lista¬ 
to, tutta la documentazione che auto¬ 
maticamente questo ormai celebre 
strumento di programmazione pro¬ 
duce. 

Partiamo dalle opzioni del menù: 

1) Aggiornam. interessi/carburanti 


2) Inserimento nuova auto 

3) Elaborazione costo/km 

4) Modifiche file auto 

5) Fine 

Prima di chiedere l'elaborazione del 
costo chilometrico occorre natural¬ 
mente inserire dati relativi ad almeno 
un’auto, e i dati del file interessi/carbu¬ 
ranti (prezzo al litro della benzina e del 
gasolio Diesel, e tasso d’interesse). 
Alla routine di inserimento di questi 
ultimi dati si arriva automaticamente 
la prima volta che si scegle l’opzione 1 
0 l’opzione 3. Poi, insistendo a chiede¬ 
re l’elaborazione del costo chilometri- 
co, finché non si sono forniti i dati di 
almeno un’automobile, si torna ineso¬ 
rabilmente al menù. 

Scegliendo l’opzione 2, inserimento 
nuova auto, vien chiesto di precisare 


STRi ( UAL (AÌ));A= m 
(Bi(12)) 

780 UTAB 21: PRM : IF NOT 
(OB) THm PRINT ODi'CLOSEMOA 
» 0:OB » 1; PRINT 
0Di'0PeMUT01,Lie9,S6,Dr 
790 PRINT 0OÌ*MRITEAUT01,R'PB: 
FOR I » 1 TO 12: PRINT Bi(l) 
CHRi (13){: NE)a :PB » PB 4 1 : 
PRINT ODi: IF (PB ) EB) THBl 
EB = PB - 1: PRINT 
DDÌ'URITBHJTO1,R0': PRINT EB: 
PRINT DDi'CLOSEMOB = 0 
800 BOTO 350 
818 PB » 1 
820 PA » 1 

830 ON PA ) EA Bino 1440: UTAB 
21: PRINT : IF NOT (QA) THB( 
PRINT DDi'CLOSEMOA » 1:0B » 

0: PRINT DDi'OPENINTERESSI/ 
CARBUIW{TI,L15,S6,Dr 
840 PRINT DDi'RBlDINTERESSI/ 
(AR 6 UMNTI,R‘PA: FOR I » 1 TO 
3: INPUT Aid): NE)a :PA » PA 

* 1: PRINT DOi 

850 PRINT : PRINT DDi'PRIl': 
PRINT CHRi (9)M32NM ON LC ) 
10 AND LC ( 67 BOTO 800:P » P 

* 1: PRINT SPC( 121)'PaQ»*;:A 
> P:H » 4:0 » 0: BOSUB 330: 
PRINT ‘ 'Ai: PRINT : PRINT : 
PRINT ■ APPLICANDO' SPC( 
44)'C0STI CHILONETRICr 

860 PRINT SPC( 57);: FOR I » 8 
TO 17: PRINT '»•;: N£)a : 

PRINT : PRINT : PRINT : PRINT 
')«)RCA E MODELLO' SPC( 12)'B/D 
PREZZO' SPC( 7)'Ami 
COSTO/KM' SPC( 7)'IST06RAIÌ1A'; 
FOR I = 0 TO 24: PRINT 
NE)CT : PRINT ' ™ 

- '; 


878 PRINT ' .' 

SPC( 7);: FOR I = 0 TO 39: 
PRINT NEId : PRINT :LC = 
18 

888 ON PB ) EB BOTO 350: UTAB 
21: PRINT : IF NOT (OB) THEN 
PRINT DDÌ'CLOSE':OA» 0:06» 

1; PRINT DOÌ'OPErMUTOl,L109, 
S6,D1' 

898 raiNT DDi'REAOAUTOl.R'PB; 

FOR I » 1 TO 12: INPUT Bi(l): 
NE)a :PB = PB 4 1: PRINT ODi 

900 N(l) » (ML (Aid)) 

910 IF Bi(2) » '0' THEN Nd) » 
(ML (Ai(2)) 

920 N(2) » ( WL (Bi(3)) 4 UAL 
(Bi(4)) - WL (Bi(6))) / («L 
(Bi(5)) 

938 )(X » (WL (Bi(3)) 4 UAL 
(Bi(4)):ll » 0 

940 FOR EE » 1 TO m 
(Bi(7)):II = (XX » m 
(Ai(3))) / 100:XX » XX 4 II: 
NEXT 

950 N(2) = N(2) 4(11/ (ML 
(Bi(5))):N(2) =N(2) 4 ( m 
(Bi(7)) » ( WL (Bi(8)) 4 WL 
(Bi(9)) 4 UAL (Bi(10))) / 

UAL (Bi(5))) 

960 N(2) » N(2) 4 (Nd) » WL 
(BidD) / 100) 4 ( UAL 
(Bi(12)) / (WL (Bi(5[))) 

970 PRINT : PRINT DDi'PRil': ON 
LC ) 50 BOTO 1010: PRINT 
LEFTi (Bid) 4 Si,25)' ' 

LEFTi (Bi(2) 4 SÌ,1)|:A= WL 
(8Ì(3)):M » 9:0 » 8: BOSUB 
330: PRINT SPC(6)AÌ;:A» 

UAL (6Ì(7)):H » 2:0 » 0: BOSUB 
330: PRINT ' 'AÌ;;A = 

N(2):M » 5:0 » 0; BOSUB 338 

Segue a pag. 18 
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Listing o4 COSTIAlfTD 

1 .. Branch on a 5 option nenu to 2, 9, 13, 21, 35 

2 ..Set pointer to thè end of IKTERESSI/CMBUIMNTI file 

3 .. Backstep within IKTERESSI/CARBURANTl tile 

4 .. Read data tron INTERESSl/CARBUimTI file <0N EOF to 28) 

5 .. Check record» troi» INTERESSI/CARBUMNTl File 

6 .. Backstep within INTERESSl/CARBUfWNTI File 

7 ..Urite data to INTERESSl/CARBUim] File 

8 .. Direct unconditional branch to 1 

9 .. Set pointer to thè end oF AOTOl File 

10 .. Keyboard input For AOTOl File 

11 .. Urite data to AOTOl File 

12 .. Direct unconditional branch to 1 

13 .. Set pointer to thè start oF AOTOl File 

14 .. Set pointer to thè start oF INTERESSI/CARBORANTI File 

15 .. Read data Fron INTERESSl/CARBURANTl File FON EOF to 28) 

Id .. Display data Fron AOTOl File 

17 .. Read data Fron AOTOl File FON EOF to 1) 


marca e modello, di indicare con B o 
con D se si tratta di una vettura a 
benzina o diesel, di indicare il prezzo 
d’acquisto (da esprimere in lire, senza 
punti o virgole: non 19.567.800 
mal 9567800), il prezzo di eventuali 
accessori, la stima dei chilometri che 
avrà al momento in cui verrà rivendu¬ 
ta, la stima del prezzo di rivendita, il 
numero di anni in cui si prevede di 
utilizzarla, il costo annuo dell’assicu¬ 
razione, il costo del bollo, il costo del 
garage, il consumo in litri per 100 chi¬ 
lometri e, infine, il costo annuo di ma¬ 
nutenzione più riparazioni. 

Chiaro che acquistando oggi una 
macchina nuova come l’Alfa 33 o la 
Mercedes 190E è piuttosto difficile sti¬ 
mare a quale prezzo potrà essere ri¬ 
venduta fra tre o quattro anni. È chiaro 


Segue da pag. 17 

^0 SS$ - *»•«««<»>«««»«<» 

: KK 

= 25 

990 NIFI) = LEFT$ FSSi, IMT F 
UAL FA$) / KK» 

1000 PRINT ' ‘A$ SPCF 10) 

LER$ FN0F1) + SI,40) 

1010 LC> LC 4 1; IF NOT FLC F 
51) THEN FOR I = 1 TO 14: 
PRINT : NE)a :LC = <7 
.1020 PRINT OD$'PRI0‘: VTAB 21: 
PRINT 

1030 NF2) > 0: BOTO 880 
1040 PB - 1 

1050 NONE : INVERSE : UTAB 1: 
HTAB 1: PRINT ' 

APPLIOVFOO’: NORIM. : UTAB 3: 
KTAB 12: PRINT ‘COSTI 
CHILONHRICr: VTAB 4; KTAB 
12: FOR N = 1 TO 18: PRINT 
NE)a : IWERSE : VTAB 6i 
KTAB é 

10(» PRINT 'RICERCA AIHO PER 
MODIFICA DATI': NORIML : UTAB 
10: KTAB 7: PRINT ‘IftRCA E 
NODELLO' 

1070 VTAB 12: KTAB 7:A$»'825': 

GOSUB 110: IF OK THEN B$F1)=A$ 
1080 S$F1) B0F1) 

1090 VTAB 21: PRINT : IF NOT 
FOB) THEN PRINT DD4'CLOS£':OA 
=0:08=1 :PRINT DDf'OPBMUTOl, 
L109,S^,D1‘ 

1100 ON PB ) EB GOTO 350: PRINT 
DO0'REAOAUTO1,R'PB: FOR I = 1 
TO 12: INPUT BIFI): NE)(T :PB = 
PB 4 1: PRINT DD0 
1110 IF NOT F HID$ (B$F1),1, 

L0F FSiFl») = S4F1)) THEN 
1090 

1120 HONE : IN/ERSE : UTAB 1: 


KTAB 1: PRINT ' 

APPLICANDO': NOR^L : UTAB 3: 
HTAB 12: PRINT 'COSTI 
CHILONETRICI'; UTA 6 4: KTAB 
12: FOR N = 1 TO 18: PRINT 
NE)(T : IfWERSE : VTAB 4: 
HTAB 12 

1130 PRINT'MODIFICA DATI AUTO': 
NORHAL : VTAB 8 : HTAB 14: 

PRINT 'MARCA E MODELLO': VTAB 
10: KTAB 6 : PRINT 'B)EN21NA - 
D)1ESEL': VTAB 11: KTAB 6t 
PRINT 'PREZZO DI ACQUISTO': 
VTAB 12: KTAB ii PRINT 'COSTO 
B) .ACCESSORI' 

1140 VTAB 13: HTAB 6t PRINT 
'STIIW W1 RIVBFOITA': VTAB 14: 
HTAB it PRINT 'STim PREZZO 
RIVQF.': VTAB 15: HTAB 6t 
PRINT 'flMFl DI UTILIZZO': VTAB 
16: HTAB 6: PRINT 'COSTO iVtFUO 
ASSIC.': VTAB 17: KTAB 6: 

PRINT 'COSTO BOLLO CIRCOL.' 
1150 VTAB 18: KTAB 6 : PRINT 
'COSTO AftFUO GARAGE': VTAB 19: 
HTAB 6 : PRINT 'CONSONO 
L1TRI/1B8KM': VTAB 20: HTAB 6 : 
PRINT 'SPESE f»«UE IWF/RIP.' 
1160 VTAB 9: HTAB 9: PRINT 
LEFT0 FBiFl) 4 S$,25): VTAB 
10: KTAB 27: PRINT LEFT0 
FB$F2) 4 Si,l): VTAB 11: KTAB 
27:A= m FB$F3)):M = 9:0 = 
0: GOSUB 330: PRINT Ai: VTAB 
12: HTAB 27:A = WL FB$F4)):H 
= 9:D = 0: GOSUB 330: PRINT Ai 
1170 VTAB 13: HTAB 27:A = FML 
FBÌF5)):N = 9:D = 0: GOSUB 
330: PRINT Ai: VTAB 14: HTAB 
27:A= VAL FBÌF 6 )):H = 9:D = 
0: GOSUB 330: PRINT Ai: VTAB 
15:HTAB27:A= VAL FBÌF7)):M 


= 2:D = 0: GOSUB 330: PRINT 
Ai: VTAB 16: HTAB 27:A = VAL 
FBÌF 8 )):M = 7:D = 0 
1180 GOSUB 330: PRINT Ai: VTAB 
17: KTAB 27:A = FML FBÌF9)):M 
= 7:D = 0: GOSUB 330: PRINT 
Ai: VTAB 18: KTA 8 27:A = VAL 
FBÌF10)):H= 7:D= 0: G0SU8 
330: PRINT Ai: VTAB 19: KTAB 
27:A= m FBÌF11)):M= 4:D = 
1: GOSUB 330: PRINT Ai 
1190 VTAB 20: HTAB 27 :A= VAL 
FBÌF12)):H = 8 :D = 0: GOSUB 
330: PRINT Ai 
1200 Mi = 'DO YOU UISH TO 
CONTINUE SEARCHING': GOSUB 
310: IF A GOTO 1090 
1210 ON NOT HD GOTO 1340 
1220 VTAB 9: HTAB 9:AÌ = 'B25': 

GOSUB 110: IF OK THBF BÌFI)=AÌ 
1230 VTAB 10: KTAB 27:AÌ = 'Bl': 

GOSUB 110:1F OK THEN BiF2)=AÌ 
1240 VTAB 11: KTAB 27:Ai = '09': 

GOSUB 110:IF OK THEN BÌF3)=AÌ 
1250 VTAB 12: KTAB 27:AÌ = '09': 

GOSUB 110:1F OK THEN BÌF4)=AÌ 
1260 VTAB 13: KTAB 27:AÌ = '09': 

GOSUB 110:1F OK THEN BÌF5)=AÌ 
1270 VTAB 14: KTAB 27:AÌ = '09': 

GOSUB 11B:IF OK THEN BÌF 6 )=AÌ 
1280 VTAB 15: HTAB 27:AÌ = '02': 

GOSUB 110:IF OK THEN 8ÌF7)=AÌ 
1290 VTAB 16: KTAB 27:AÌ='07': 

GOSUB 110:1F OK TKBF BiF 8 )=AÌ 
1300 VTAB 17: HTAB 27:AÌ='07': 

GO^B 110:1F OK THEN BÌF9)=AÌ 
1310 VTAB 18: KTAB 27:AÌ = '07': 

GOSUB 118:1F OK THEN BÌF10)=AÌ 
1320 VTAB 19: HTAB 27:AÌ ='14^ 
GOSUB 110:1F OK THEN BiFll)=AÌ 
1330 VTAB 20: KTAB 27 :AÌ='08': 
GO^B 110:IF OK THEN BÌF12)=AÌ 
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18 .. Calculations using INTERESSI/CARBUMNTI and AUTOl filts 

19 .. Display data trai IKTERESSl/CARBUIMNTI and AUTOl tilas 
2B .. Dirict unconditional branch io 17 

21 .. Set pointer to thè start ot AUTOl file 

22 .. Keyboard search oi AUTOl Tile <0N EOF to 1> 

23 .. Check records fron AUTOl Ti le 

24 .. Backstep uithin AUTOl Tile 

25 .. Urite data to AUTOl Tile 

26 .. Ask (ALTRE NODIFICHE?). Branch iT yes to 21 

27 .. Direct unconditional branch to 1 

28 .. Display non-Tile data 

29 ..Ask (VUOI INSERIRLI ORA?). Branch iT yes to 31 

38 .. Direct unconditional branch to 1 

31 .. Set pointer to thè end oT INTERESSI/CARBUR4NTI Tile 

32 .. Keyboard input Tor MERESSI/CARBUIWNTI Tile 

33 ..Urite data to INTERESSl/CARBUMNTI Tile 

34 .. Direct unconditional branch to 1 

35 .. Teminate progran 


anche che può capitare di non sapere 
con precisione quale potrà essere il 
costo dell'assicurazione per l'uno o 
per l’altro modello. Ma si può anche 
inserire un valore provvisorio e modifi¬ 
carlo in un secondo tempo ricorrendo 
all opzione 4: modifica dati auto. 
Quando la si sceglie vien chiesto di 
inserire marca e modello per effettua¬ 
re la ricerca. In realtà bastano le prime 
tre lettere. Se però nel file sono pre¬ 
senti la FIAT 131 DIESEL, la FIAT 
ARGENTA, e la FIAT UNO, battendo 
solo FI 0 FIAT si arriverà alla prima 
delle tre e poi ci si vedrà chiedere se si 
vuol continuare a cercare. Se rispon¬ 
dendo di sì ci si vede riportare al menù 
vuol dire che nel file non ci sono altre 
auto con lo stesso nome che abbiamo 
dato per la ricerca. 



1340 MI = MS THIS CORRECT Y OR 
NM 60SU6 318 ìND = NOT A: IF 
NOT A BOTO 1228 
1358 PB = PB - (PB > 1) 

1368 POKE 222,288:B8(1) = LER$ 
(B$(l),25)ìB»(2) = LEFT8 
(B$(2),1):A- m(B8(3)):N = 
9:D = 8: 60SUB 338: ON ASC 
(Ai) = 37 GOTO 1650tB$(3) = 
STRi ( m (AÌ)):A » VAL 
(BÌ(4)):N = 9;D » 8: 60SUB 
338: ON ASC (Ai) = 37 GOTO 
1650 

1370 Bi(4) = STRi ( m (AÌ)):A 
= WL (BÌ(5)):M = 9:0 = 8: 
GOSUB 338: ON ASC (Ai) = 37 
GOTO 1658:BÌ<5) = STRi ( (ML 
(AÌ)):A= m (BÌ(6)):M* 9:D 
= 8: GOSUB 338: ON ASC (Ai) = 
37 GOTO 1658:BÌ(6) - STRi ( 
VAL (AÌ)):A IML (Bi(7)) 

1388 N s 2:0 : 8: GOSUB 338: ON 
ASC (Ai) » 37 GOTO 1658:BÌ(7) 

= STRi ( VAL (AÌ)):A= WL 
(BÌ(8)):N =7:0-8: GOSUB 
338: ON ASC (Ai) = 37 GOTO 
16S8:BÌ(8) = STRi ( VAL 
(AÌ)):A= VAL (BÌ(9)):N = 7:0 
= 8: GOSUB 338: ON ASC (Ai) = 
37 GOTO 1658 

1390 Bi(9) = STRi ( m (AÌ)):A 
= WL (Bi(10)):H = 7:0 = 8 : 
GOSUB 338: ON ASC (Ai) = 37 
GOTO 1658:BÌ(18) = STRi ( VAL 
(AÌ)):A= VAL (BÌ(11)):H = 

4:D = 1: GOSUB 338: ON ASC 
(Ai) = 37 GOTO 1658:BÌ(11) = 
STRi ( VAL (AÌ)):A = VAL 
(Bi(12)) 

1488 VTAB 21: PRINT : IF NOT 
(OB) THEN PRINT DDi'CLOSE':0A 
=8:0B=1:PRINT ODi'OPEWUTOl, 


L1B9 S6 DI* 

1418 PRINT DDÌ'UR1TEAUT01,R‘PB: 
FOR I » 1 TO 12: PRINT éi(I) 
CHRi (13)j: NEXT :PB = PB 4 1: 
PRINT OOi: IF (PB ) EB) THBt 
EB = PB - 1:'PRINT 
DDÌ'URITEAUT01,RB‘: PRINT EB: 
PRINT DDi'CLOSE*:0B = 8 
1420 Mi = *ALTRE MODIFICHE?*: 

GOSUB 318: IF A GOTO 1848 
1438 GOTO 358 

1448 HOME : INVERSE : VTAB 1: 
HTAB 1: PRINT * 

APPLICANDO*: NORKU. : VTAB 3: 
HTAB 12: PRINT *C0ST1 
CHILOMETRICI*: VTAB 4: HTAB 
12: FOR N = 1 TO 18: PRINT 
NE)a : FLASH : VTAB 8: 
HTAB 13 

1458 PRINT'NON CI SONO DATI*: 
VTAB 9: HTAB 6: PRINT *NEL 
FILE INTERESSI/CARBUfmrr: 
NOUML 

1468 Mi = 'VUOI INSERIRLI ORA?': 

GOSUB 318: IF A GOTO 1488 
1478 GOTO 358 
1488 FA = EA 4 1 
1498 HOME : INVERSE : VTAB 1: 
HTAB 1: PRINT ' 

APPLICANDO': NORmL : VTAB 3: 
HTAB 12: PRINT 'COSTI 
CHILOMETRICI': VTAB 4: HTAB 
12: FOR N = 1 TO 18: PRINT 
'•*;: NE)(T : IlWERSE : VTAB 6: 
HTAB 2 

1588 PRINT 'INSERIMENTO DATI 
INTERESSI/CARBUnVtn*: NORmL 
: VTAB 8: HTAB 2: PRINT 
'INSERIRE IL PREZZO AL LITRO 
DI BENZINA': VTAB 9: HTAB 4: 
PRINT 'E GASOLIO PER DIESEL E 
Segue a pag. 20 
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I PERSONAL 
COMPUTER IN 
AZIENDA 

DUE INTERESSANTI 
STAGE DI FORMAZIONE 


La CEGOS INFORMATICA organizza nel periodo settem¬ 
bre '83- marzo '84 due interessanti corsi suH'utilizzo del 

f )ersonal computer in azienda. Il primo si chiama "Basic- il 
inguaggio del calcolatore per i manager" ed è un corso 

E rotico che consente di guaaagnare familiarità con il calco- 
itore ed essere in grado di sviluppare da soli programmi 
per il proprio personal computer. 

Il secondo si chiama "Microcomputer & programmi appli¬ 
cativi" ed è dedicato all'apprendimento del VISICALC e 
delle sue applicazioni in calcoli di budget, analisi di bilan¬ 
cio, previsioni di vendita, ecc. 

Questo il calendario dei corsi e i costi sui quali siamo riusciti 
ad ottenere un particolare sconto per i lettori di APPLI¬ 
CANDO. 


BASIC-IL LINGUAGGIO DEL CALCOLATORE 
PER I MANAGER 


19-21 settembre 1983 
21-23 novembre 1983 


8-10 febbraio 1984 
21-23 marzo 1984 


prezzo al pubblico L. 840.000 +IVA - prezzo speciale per i 
lettori di APPLICANDO L. 650.000 +IVA. 


MICROCOMPUTER & PROGRAMMI 
APPLICATIVI 


29-30 settembre 1983 23-24 gennaio 1984 

17-18 novembre 1983 12-13 marzo 1984 

prezzo al pubblico L. 720.000 + IVA - prezzo speciale per i 
lettori di APPLICANDO L. 550.000 +IVA. 


Tutti ì corsi in questione sono tenuti in formo pratico e cioè i partecipanti 
potranno esercitarsi direttamente sui personal computer APPLE. 

Qui sotto riportiamo il tagliando valido per l'iscrizione ai corsi con prezzo 
ridotto: vi consigliamo tuttavia di anticipare la vostra iscrizione telefonan¬ 
do alla CEGOS 02/876.972-806.559. Agli stessi numeri potrete chiedere 
ulteriori informazioni sui corsi. 


TAGLIANDO D'ISCRIZIONE 

da ritornare alla Segreteria Corsi - Cegos Informatica 
Via Larga, 16 - 20122 Milano - Tel. 02/876.972-806.559 




Socio 

ANASIN 


Vi preghiamo di iscrivere al coeso: 

□ Basic - Il linguaggio del calcolatore per i manager del. 

□ Microcomputer & Programmi Applicativi del. 


Nome e cognome. 

Funzione.Telef. 


Azienda.. 


Indirizzo. Città. 

N° Codice fiscale.N° Partita IVA. 

Settore attività. dipendenti. 

Per iscrizioni di gruppi inviare elenco e funzioni a parte. 

Istruzioni di pagamento: l'intera quota deve essere pagata in anticipo a DATA 
CEGOS. 

□ Assegno allegato n° . 

□ Emettere ricevuta bancaria. 




Veniamo all'elaborazione vera e 
propria del costo chilometrico. Quan¬ 
do si sceglie l'opzione 3 sullo schermo 
non succede nulla. Parte invece la 
stampante, predisposta per la stampa 
a 132 colonne, producendo una tabel¬ 
la come quella alle pagine 16-17, che 
per ogni auto, dopo aver ricordato se a 
benzina o diesel, indica il prezzo di 
acquisto e gli anni per i quali si è sup¬ 
posto di usarla, aggiungendo il suo 
costo per chilometro in lire e l'isto- 


Segue da pag. 19 

IL TASSO DI’: VTA8 18: KTAB 12 
1510 PRINT 'INTERESSE CORRBfTE't 
VTAB 14: HTAB 8: PRINT 
'BENZM SUPER LIRE/L’: VTAB 
15: KTAB 8: PRINT 'GASOLIO 
DIESEL L/L': VTAB Ì6i KTAB 
6 : PRINT 'INTERESSI AWWI' 

1528 VTAB 14: KTAB 38:A$ - '85': 

60SUB 118:IF OK THEN Ai(l)=^ 
1538 VTAB 15: KTAB 38:A8 = '05': 

60SUB 118:IF OK TKEN A«(2)=A$ 
1548 VTAB lé: KTAB 38:A$ - '82': 

60SUB 118:IF OK THEN Af<3)=A« 
1550 MI = 'IS THIS CORRECT Y OR 
N': 60SU6 318:ND=: NOTA: IF 
NOT A GOTO 1528 
15^ POKE 222,288:A = m 
<AI<1)):H = 5:0 » 0: 60SUB 
338: ON ASC <AI) = 37 GOTO 
1658:A$<1) s STRI ( m 
<AI)):A= VAL (AI(2)):H = 5:D 
- 8: GOSUB 338: ON ASC (Al) = 
37 GOTO U58:AI(2) < STRI ( 
m <AI)):A =^L <AI<3)):lt=2 
1570 VTAB 21: PRINT : IF NOT 
(OA) THBl PRINT DI)I'CLOSE':OA 
-1:0B=‘8:PRINT DDI'OPENINTE 
RESSI /CARBURANTI,L15,S6,DI' 
1580 PRINT DDI'URITEINTERESSI/ 
CARBUMNTI.R'PA: FOR I = 1 TO 
3: PRINT Aid) CHRI (13);: 

NE)a :PA = PA ♦ 1: PRINT ODI: 
IF <PA > EA) THEN EA = PA - 1: 
PRINT DDI'URITEINTERESSI/ 
CARBURANTI ,R8': PRINT fAt 
PRINT DDI'CL0SE':0A = 8 
1598 GOTO 358 

lé88 PRINT : PRINT DDI'CLOSE': 

HOME : POKE 216,8: END 
1618 ONERR GOTO 1658 
1628 DIN AI(3),BI(12),N(2), 
NI<1),SI<12):UI » CHRI 
<95):BI = CHRI (8):SI = ' ': 
FOR T = 8 TO 5:UI = Ul ♦ UltSI 
SI * SI:BI= Bl 4 Bl: NE)CT 
:D0I= CHRI (4); TE)a : HOME 
: PRINT 

.1638 ' PRINT DDI'CLOSE':FI = 


Timbro e firmo 
























gramma che lo visualizza per un con¬ 
fronto immediato. Quest’ultimo è for¬ 
mato da una serie di fino a 40 asteri¬ 
schi, e il divisore è 25. Ciò significa 
che per 500 lire di costo per chilome¬ 
tro verranno prodotti 20 asterischi, per 
mille 40 asterischi, ma oltre le mille lire 
sempre 40 asterischi. Volendo modifi¬ 
care il divisore, basta cambiare il valo¬ 
re di KK alia riga 980. 

Fin qui il programma. È stato scritto 
in circa due ore e mezzo, più una mez¬ 


zoretta di prove e piccole modifiche 
soprattutto alla parte formule, in parte 
perché in partenza non erano state 
previste alcune variabili necessarie 
per la costruzione deH’istogramma, in 
parte per uno scherzo di Last One che 
non è stato facile individuare. Sgom¬ 
briamo subito il campo dallo scher¬ 
zacelo che un programma come Last 
One non dovrebbe fare, e che proprio 
per questo va segnalato. Last One ri¬ 
solve da solo il grosso dei problemi di 


programmazione, con grande dispen¬ 
dio di spazio, ma automaticamente. 
Tuttavia è predisposto per ricevere e 
incorporare nel programma da creare 
anche delle istruzioni in normalissimo 
basic. Era il caso delle formule per il 
costo chilometrico. Ebbene, tutti san¬ 
no che in un’istruzione del tipo: 

IF A=0 THEN GOSUB 

2000:B=1;C=4 

B assume valore 1 e C valore 4 solo se 


■MERESSI/CARBUWNTrtR = 15: 
PRIKT DM’0PEN’F$*,LI5,Sé,DI': 
PRINT DD$’R»D'F$*,R0’; INPUT 
EA:PA = EA 4 1: PRM 
DW'CLOSE’tFf = 'AUTOrtR = 
119; PRINT OWOPEN'FS*, 
L109,S4,Or 

U40 PRIKT DW*RB^D’F$*,R0*: 
INPUT EB:PB » EB 4 l:0B = 1: 
PRINT DM: BOTO 350 
1650 E» PEEK<222):L» PEEK 
<218) 4 PEEK <219) « 256:Mf = 
IF E = 5 AND L ) = 5E4 
THEN PRIKT DM'WRITE'FV,R0*; 
PRIKT 0: PRIKT DM’CLOSE*: 
PRIKT DM*OPEN'F**,L'R: PRIKT 
OM’RB1D*FI',R0': RÉSUMÉ 
1660 IF E = 8 THEN M0 » 'DISK 
RB)D/URITE ERROR' 

1670 IF E = 9 THEN Mi = 'DISK 
Flfl.L' 

1680 IF E = 16 THEN m = 

MKMLID COmiD' 

1690 IF E » 176 THEN Mi = ’FIELD 
DATA TOO LING’ 

1700 IF E = 133 THEN MI = 
•milD DIVISHW BY ZERO* 

1710 IF E » 200 THEN Hi ‘BAD 
DATA '• 4 Ai 4 

1720 IF E = 255 THEN Mi = '«WT 
DO YOU WANT mSTER* 

1738 IF NOT LEN <MÌ) THEN Mi = 
•ERROR NO.* 4 STRi <E) 4 • 
FOUND* 

1740 Mi = Mi 4 • AT line * 4 
STRÌ<L):H= IKT «48 - LEN 
<MÌ)) / 2); VTAB 21: PRIKT : 
CALL - 958: HTAB H: PRINT Mi: 
CALL - 1054: B4D 


Nofl-File fields , 
VI N<1) 

V2 N<2) 

V3 NÌ<1) 

Field list Fot 'COSTIAUTO' at coding tine 

5 

5 

40 

CARBIMFTE 

COSTO/KM 

ISTOBimi^ 

Nun/0 

Nuii/0 

Alpha 

Fieids Tot INTERESSl/CARBURANTI Til» 



Al 

Ai<l) 

BmZII«l SUPER LIRE/L 

Nuii/8 

5 

A2 

Ai<2) 

GASOLIO DIESEL L/L 

Nua/0 

5 

A3 

Ai<3) 

INTERESSI fMtUI 

Nui/0 

2 

PI 

PA 

File pointer For INTERESSI/CARBUR1KTNuii/0 

5 


ìa 

EOF. narker For IKTERESSI/CARBUMNTINuffl/0 

5 

Fieids Tor AUTOl File 



B1 

6 Ì<1) 

IMtCA E NODELLO 

Alpha 

25 

B2 

Bi<2) 

BIBFZM - D)IESEL 

Alpha 

1 

B3 

Bi<3) 

PREZZO DI ACQUISTO 

Nun/0 

9 

B4 

Bi<4) 

COSTO B; .ACCESSORI 

Nun/0 

9 

B5 

Bi<5) 

STim m RIVENDITA 

Nun/0 

9 

B6 

Bi<6) 

STim PREZZO RlVBt. 

Nun/0 

9 

B7 

Bi<7) 

fWI DI UTILIZZO 

Nun/0 

2 

B8 

Bi<8) 

COSTO AtttUO ASSIC. 

Nun/0 

7 

B9 

Bi<9) 

COSTO BOLLO CIRCOL. 

Nt8l/0 

7 

B10 

Bi<10) 

COSTO AMtUO GAIMGE 

Nun/0 

7 

Bll 

BÌ<11) 

CONSinO LITRI/KN 

Nun/i 

4 

B12 

6 i<12) 

SPESE AfIFUE MAN/RIP. 

Nun/0 

8 

P2 

PB 

File pointer For AUTOl 

Nun/0 

5 


EB 

EOF. narker For AUTOl 

Nun/0 

5 

Internai Fieids . 

1 n 




P 

Page nunber 

Nun/0 

5 


LC 

Line Count 

Nun/0 

5 

IKTERESSI/CARBUMNTI File is on Slot 6. Drive 1 .. 

Record length is 15 

AUTOl File is on 

Slot 6» Drive 1 .. Record length 

is 109 
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Lin» 1 .. NBW 
Oraw seitings .. 

iRsart Taxt of ' APPLICANDO’ at I.l in 

invars» noda 

Insart Taxt of 'COSTI CHlLOIETRICr at 12,3 undarlinad with 
Ittsart Taxt oT ’NBW'* at 18,d in invarsa noda 
Nanu taxt .. 

A66I0m.INTER/CARBUR.<l> 

INSERIH.NUOUA AUT0...<2) 

EUtBORAZ. C0STQ/m...<3> 

HODIFICHE FILE AUT0..«) 

FINE.<5> 


Uith Tidy scracn 


A claar scrain batora 


A claar scraan aTtar NOMI 


Lina 5 .. RECORD CI€CK 
Draw sattings .. 

Insart Taxt oT ’ APPLICANDO* at 1,1 in 

invarsa noda^ 

Insart Taxt oT 'COSTI CHILONETRICI* at 12,3 undarlinad Mith 
Insart Taxt ot 'A66I0RNANENT0 INTERESSI/CARBUIMNTr at A,d in 
invarsa «oda 

Roh/CoIumi sattings .. 

B^INA SUPER LIRE/L 9 8 ‘ 9 38 

6AS0LI0 DIESEL L/L 18 8 18 38 

INTERESSI AtttUI 11 8 11 33 

Uith Tidy scrain 


A claar scraan batora RECORD CHECK 


Lina 18 .. KEYBOARD INPUT 
DraM sattings .. 

Insart Taxt oT ’ APPLICANDO' at 1.1 in 

invarsa noda 

Insart Taxt of 'COSTI CHILONETRICI* at 12,3 undarlinad «ith 
Insart Taxt oi 'INSERItOTTO NUOUA AUTO' at 18,6 in invarsa noda 


Rou/Colunn sattings .. 
Wm E NODELLO 

8 

14 

9 

9 

BlBtZINA - DIIESEL 

18 

6 

18 

27 

PREZZO DI ACQUISTO 

11 

i 

11 

27 

COSTO B; .ACCESSORI 

12 

6 

12 

27 

STltM KN RIVENDITA 

13 

6 

13 

27 

STim PREZZO RIVBt. 

14 

6 

14 

27 

Affli DI UTILIZZO 

15 

6 

15 

27 
























COSTO /VMUO ASSIC. 

16 

6 

\6 

27 

COSTO BOLLO CIRCOL. 

17 

6 

17 

27 

COSTO AltiUO 6ARA6E 

18 

6 

18 

27 

CONSUMO LITRI/KH 

19 

6 

19 

27 

SPESE AttiUE f«N/RlP. 

20 

6 

28 

27 


Uith Tìdy Kr»tn 


\\\ 

MEMORY 

compu^Qrs 


A clear scrten btfore KEYBQARD INPtTT 


Uith corrfction facility 



A è uguale a 0, altrimenti il computer 
non fa il Gosub e non passa oltre I due 
punti. Però Last One non lo sa, e infatti 
ha riunito in un’unica linea diverse 
istruzioni (inserite singolarmente), se¬ 
parandole con i due punti. In pratica 
l’istruzione 920 non era separata co- 
m’è ora dalla 910, ma la seguiva con i 
due punti. Con il risultato che i valori 
dei prezzi di acquisto e degli accessori 
venivano letti solo per le auto diesel e 
non per quelle a benzina. 

A parte questo piccolo inconvenien¬ 
te, comunque, Last One ha dato buo¬ 
na prova delle sue possibilità. Alle pa¬ 
gine 18-19 c’è il “flow-chart” che è 
stato necessario costruire per realiz¬ 
zare il programma costi auto. Questo 
diagramma di flusso lo si imposta dal 
menù di Last One, scegliendo fra le 
varie opzioni che vengono proposte, 
in funzione del programma che si vuol 
predisporre. È in inglese, come lo pro¬ 
duce Last One, e così lo abbiamo la¬ 
sciato (come abbiamo lasciato in in¬ 
glese ciò che Last One ha scritto in 
inglese nel listato; alle domande in in¬ 
glese rispondere Y/N). A pagina 21, 
invece, ecco le caratteristiche (così 
come vengono documentate da Last 
One durante la creazione del pro¬ 
gramma) dei file INTERESSI/CAR- 
BURANTI e AUT01, oltre che del 
campi cosiddetti non-file. Alle pagine 
22-23, infine, la documentazione, 
scritta sempre da Last One, di quel 
che è stato fatto alle linee 1,5 e 10 del 
flow-chart. 

Il risultato finale lo abbiamo visto: 
ciascuno può digitarlo (o ordinare su 
dischetto), per togliersi la soddisfazio¬ 
ne di vedere anche dal vivo come fun¬ 
ziona un programma che è stato scrit¬ 
to da un altro programma, sia pure 
con qualche intervento umano. 




inaugura il 

nuovo computer shop 

Via Aureliana, 39-41/43/45 

(angolo Via Silvio Spaventa. 12/14/16) 

RIVENDITORE E CENTRO ASSISTENZA AUTORIZZATO 



DISTRIBUTORE UNICO PER L'ITALIA 
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Contabilità? Mai più affidata ad altri. Ma quale programma 
scegliere? Eccone due per Apple/// e Profile: uno è un package 
standard, l’altro va personalizzato sulle misure 
dell’azienda. Ma entrambi... 

La contabilità 
è mia 

e la gestisco io 


L Jimmagine del contabile in mezze 
maniche, fidato e volonteroso, 
chino sui libroni neri della contabilità a 
ricalco, è relegata oggi in qualche vec¬ 
chio film dal fotogrammi sfocati per il 
tempo. Ormai da anni le aziende con 
un certo fatturato si sono convertite 
all’elaborazione elettronica della con¬ 
tabilità. Certo, solo loro, si diceva all’i¬ 
nizio, possono permettersi impianti 
che costano centinaia di milioni. Che 
Invidia, però. Ma la soluzione non ha 
tardato a venire. L’unione fa la forza, 
ed ecco nascere la contabilità di grup¬ 
po. Un commercialista (forse più d’u¬ 
no), deciso una mattina a far quadrare 
meglio il suo bilancio, ha messo giù un 
impianto da decine e decine di milioni 
e ha raccolto attorno a sé un grappolo 
di piccole aziende e negozi. Infine na¬ 
scono I personal computer, con I quali, 
guarda caso, ci si può fare anche la 
contabilità. Eppure in molte piccole e 
medie aziende si contìnua a lasciare i 
conti in gestione ad altri. «È più sicu¬ 
ro», si sente dire. Magari dimentican¬ 
do l’esperienza fatta con quel tale 
contabile improvvisato che... Oppure: 
«Ma in fondo non costa tanto...», sen¬ 
za contare che si tratta sempre di una 
spesa aggiuntiva. 

Oggi affidare la contabilità a un cen¬ 
tro esterno significa spendere, per un 
fatturato attorno al miliardo, una deci¬ 
na di milioni l’anno, cui va aggiunto il 
costo di una persona interna che deve 
tenere la prima nota, raccogliere i do¬ 
cumenti, attribuire loro il numero di 
conto, eseguire i pagamenti, e cosi 
via. L’acquisto di un Personal come 
l’Apple /// con Profile da cinque milioni 
di caratteri di memoria, stampante da 


132 caratteri per riga e un buon soft¬ 
ware gestionale non supera i 12/13 
milioni, ai quali vanno aggiunti 3/4 mi¬ 
lioni l’anno per una adeguata (e, con 
questa cifra, ottima) consulenza 
esterna alla quale siano demandati il 
controllo mensile dei dati inseriti, la 
responsabilità delle scadenze periodi¬ 
che, il controllo del bilancio di fine an¬ 


no, eccetera. La persona interna ad¬ 
detta prima a fare da tramite con il 
centro contabile esterno non impiega 
certo più tempo a inserire direttamen¬ 
te ì dati nel calcolatore, quindi il suo 
costo rimane invariato. Tirando le 
somme, nel giro di 12/15 mesi l’inve¬ 
stimento è ammortizzato, e da quel 
momento il risparmio effettivo è di 6/7 
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PIANO DEI CONTI 


Codice conto 

Descririone 

Te Tc Ts 

01 

CASSA 

T 




0101 

CASSA CONTANTI 

N 

0102 

PICCOLA CASSA 

N 


02 

PORTAFOGLIO E TITOLI 

T 

0201 

EFFETTI ATTIVI 

N 

0206 

TITOLI A REDDITO FISSO 

N 

0207 

PARTECIPAZIONI 

N 

0208 

DEPOSITI CAUZIONALI IN TITOLI 

N 


03 

BANCHE E C/C POSTALE 

=2S s 2s c: SS s 3 se SS cs -ns s 9 s :5 s s: 

T 

0301 

CASSA RISPARHIO 

N 

0310 

C/C POSTALE 

N 

04 

CLIENTI 

T 

0401 

CLIENTI 

C N 

0402 

CLIENTI IN CONTENZIOSO 

N 


05 

CREDITI 

T 


5l=: = 5SJ5BISS 


0501 

DEBITORI DIVERSI 

N 

0502 

FORNITORI C/CAUZIONI 

N 

0503 

SOCI E AnniNISTRATORI C/ANT. 

N 

0504 

DIPENDENTI C/ANT. 

N 

0508 

ERARIO C/IVA 

N 

0510 

RATEI ATTIVI 

N 

0511 

RISCONTI ATTIVI 

N 


06 

RI/IANENZE 


T 

0601 

RIMANENZE 

MERCI 

N 

0602 

RIMANENZE 

MATERIE SUSSIDIARIE 

N 
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07 

innoBiLizzi 

1 

0701 

innoBiLi 

N 

0702 

inPIANTI SPECIFICI 

N 

0703 

MACCHINARI E ATTREZZATURE 

N 

070« 

MOBILI E ARREDI 

N 

0705 

MACCHINE UFFICIO ELETTRONICHE 

N 

0706 

AUTOMEZZI E MEZZ.TRASP.INTERNO 

N 


08 

COSTI DA AMMORTIZZARE 

T 

0801 

. SPESE IMPIANTO 

N 

0802 

COSTI PLURIENNALI 

N 

0803 

MANUTENZIONE E RIP. ECC. 5Z 

N 


21 

FORNITORI 

T 


ssrsssssss 


2101 

FORNITORI 

F N 

2102 

EFFETTI PASSIVI 

N 


22 

CREDITORI DIVERSI 

T 

2201 

DIPENDENTI C/STIPENDI 

N 

2202 

ENTI PREVIDENZIALI 

N 

2203 

ERARIO C/RIVALSA 

N 

2204 

ERARIO PER RITENUTE TERZI 

N 

2205 

ENASARCO 

N 

2206 

RATEI PASSIVI 

N 

2207 

RISCONTI PASSIVI 

N 

2208 

IVA C/ VERSAMENTI 

N 


23 

DEBITI FINANZIAMENTO 

T 

2301 

BANCHE C/nUTUI 

N 


24 

FONDI AMMORTAMENTO 

T 

2401 

FONDO AMH. IMMOBILI 

N 

2402 

FONDO AMM. IMPIANTI SPECIFICI 

N 

2403 

FONDO AMM.MACCHINARI E ATTREZZ 

N 

2404 

FONDO AMM. MOBILI E ARREDI 

N 

2405 

F. AMM. MACC.UFF.ELETTRONICHE 

N 

2406 

FONDO AMM.AUTOMEZZI,MEZZ.TRASP 

N 

25 

ALTRI FONDI 

T 


c ss ss==r:=cr=i== 


2501 

FONDO IND.ANZIANITÀ’ 

N 

2502 

FONDO IMPOSTE E TASSE 

N 

2503 

FONDO SVALUTAZIONE CREDITI 

N 

2504 

FONDO PLUSVLENZE DA AMMORTIZZ. 

N 


31 

CONTI DI CAPITALE 

T 

3101 

CAPITALE SOCIALE 

C 

3102 

FONDO RISERVA ORDINARIA 

C 

3103 

FONDO RISERVA STRAORDINARIA 

C 

3104 

RISULTATO D’ESERCIZIO 

c 


32 

BILANCIO D’ESERCIZIO 

T 

3201 

STATO PATRIMONIALE 

N 

3202 

PERDITE C PROFITTI 

N 


51 

COSTI MERCI 

T 

5101 

MERCI C/ACQUISTI 

E 

5102 

MERCI C/RIM.INIZIALI 

E 

5105 

COSTI DIRETTI 

E 

5108 

RESI SU ACQUISTI 

E 

5109 

SPESE DI TRASPORTO 

E 

5110 

ACCREDITI SU FATT.MERCE 

E 

5111 

BUONI OMAGGI E SCONTI 

E 

5112 

PREMI SU ACQUISTI 

E 

52 

COSTI PERSONALE 

T 

5201 

SALARI E STIPENDI 

E 

5202 

ONERI PREVIDENZIALI 

E 

5203 

INAIL 

E 

5204 

INDENNITÀ’ ANZIANITÀ’ 

E 

5205 

RITENUTE IRPEF 

£ 


A sinistra e qui sopra, alcune voci del piano dei conti come viene 
fornito dalla SI.GE. Naturalmente è possibile sostituire parte 
delle voci, o anche tutte, a seconda delle esigenze del cliente. 


milioni l’anno. Se non è poco già il 
vantaggio economico, va ancora ag¬ 
giunto Il vantaggio di conoscere con 
immediatezza lo stato contabile del¬ 
l’azienda, mentre con il centro conta¬ 
bile esterno, al quale In genere si pas¬ 
sano tutti I documenti una volta al me¬ 
se, occorrono almeno 50/60 giorni per 
avere una stampata, che a quel punto 
è troppo vecchia e di conseguenza 
poco significativa. Senza contare che 
solo gli amici Intimi riescono a farsi 
stampare dal centro esterno un bilan¬ 
cino al mese, e non senza moine e 
carezze. 

C’è un terzo vantaggio, natural¬ 
mente; quello di mettersi in casa una 
macchina potente e flessibile come 
l’Apple /// che, oltre alla contabilità, è 
In grado di offrire un gran numero di 
altri servizi all’Interno deH’azIenda, co¬ 
me la gestione di qualsiasi documento 
scritto (lettere, circolari, contratti, 
ecc.) con l’Apple Wrlter, o una gamma 
vastissima di calcoli (budget, conti 
economici, ecc.) con VIsicalc ///, o la 
gestione di archivi con programmi di 
data base come Quick File III o PFS 
///, e così via. Tanto non funziona cer¬ 
to 8 ore al giorno per la contabilità; e 
poi, di notte, se deve stampare qual¬ 
che centinaio di lettere o di documenti, 
lavora anche mentre gli altri dormono. 

Contabilità 1 : SI.GE. 

Tra i programmi disponibili per ese¬ 
guire la contabilità su Apple III Appli¬ 
cando ha scelto per la prova due pro¬ 
dotti dalle caratteristiche alquanto di¬ 
verse, che proprio per questo sono in 
grado di soddisfare le esigenze più 
disparate. Il primo, più diffuso per la 
sua peculiarità di essere standard e 
soddisfacente insieme, è prodotto 
dalla SI.GE. di Trento (Via C. Abba 2, 
telefono 0461/985109 - 985579), e 
stando ai dati ufficiali forniti dalla 
SI.GE. stessa, il programma dovreb¬ 
be soddisfare utenti con emissione 
annua fino a 1.000 fatture per mese, 
gestione fino a 7.000 articoli di ma¬ 
gazzino e 1.000 fra clienti e fornitori. 
Naturalmente, diminuendo il numero 
degli articoli di magazzino, si aumenta 
la possibilità di gestione clienti/fornito¬ 
ri e viceversa. Il suo costo è di 3 milio¬ 
ni, IVA esclusa, ed è fornito con un 
manuale che ne spiega il funziona¬ 
mento. Il «cuore» del programma, 
ispirato alla partita doppia, è affidabile 
e accurato e non trascura alcun aspet¬ 
to fiscale. Il piano dei conti è struttura¬ 
to su tre livelli e la scelta del livello di 
funzionamento è indipendente da 
conto a conto; viene inoltre fornito con 


25 











un piano conti classico, che può esse¬ 
re cambiato, totalmente o parzialmen¬ 
te, a seconda delle singole esigenze. 
La situazione contabile si aggiorna a 
ogni fine inserimento dati, e si ha quin¬ 
di l'evidente vantaggio di conoscere in 
tempo reale la situazione che si riflette 
sulla possibilità di decisioni veloci di 
strategia aziendale. L’archivio clienti e 
fornitori contiene sia le informazioni 
anagrafiche sia le informazioni gestio¬ 
nali e contabili, e permette quindi la 
consultazione (per codice o per ragio¬ 
ne sociale) o la stampa dell’estratto 
conto aggiornato. L’immissione del 


movimenti consente una agevole 
analisi dell’operazione contabile e an¬ 
che l’Introduzione di operazioni in or¬ 
dine non cronologico. Per un control¬ 
lo, a nostro avviso assolutamente in¬ 
dispensabile, è possibile fare una 
stampa di prova prima della stampa 
definitiva sui libri bollati. Le operazioni 
IVA sono raggruppate in un piano dei 
conti definibile e aggiornabile dallo 
stesso utilizzatore. Come per i movi¬ 
menti del giornale, anche in questo 
caso è possibile la stampa preventiva 
sia periodica sia di fine anno. Le chiu¬ 
sure di fine anno consentono la chiu¬ 


sura e l’apertura automatica dei conti, 
con stampa dei movimenti sul giorna¬ 
le bollato, stampa della situazione IVA 
di fine anno e dei relativi allegati clienti 
e fornitori. Il programma prevede inol¬ 
tre Utilities varie, fra cui il salvataggio 
di tutti i dati su dischetti (molto utile nel 
caso, assai raro per fortuna, di guasti 
al Profile), il ripristino di situazioni pre¬ 
cedenti, la numerazione dei registri e 
del giornale fiscale. 

Il programma gira senza inconve¬ 
nienti ed è anche molto veloce. Non è 
stato nemmeno trascurato l’aspetto 
estetico dell’impaginazione video del- 




SITUAZIONE IVA 

25/05/83 

psg. 1 

V. Al 

Descrizioms 

Valori disi piar lodo 
iMponibile Impo&ta 

Valori 
iMponibile 

dell'anno 

Imposta 


1 

02 

VENDITE 2X 




1.073.299 

21.466 

666.117 

13.323 

1 

08 

VENDITE BX 




287.606 

23.009 

293.518 

23.482 

1 

10 

VENDITE 10% 




910.704 

91.070 

527.401 

52.741 

1 

18 

VENDITE 18% 




995.673 

181.359 

375.792 

67.643 

1 

A2 

ART.2 LETTERA 

L. 



523.500 


529.800 







Total 1 

3.790.782 

316.904 

2.392.628 

157.189 

5 

NS 

NON SOGGETTO ART.15 



500 




8 

VE 

CORRISPETTIVI 

DA VENTILARE 

255.196.700 


698.475.050 


9 

02 

CORRISP.VENTILATI 

02 


75.726.170 

1.514.523 

185.417.380 

3.708.347 

9 

08 

CORRISP.VENTILATI 

08 


14.258.567 

1.140.685 

55.547.609 

4.443.810 

9 

10 

CORRISP.VENTILATI 

10 


64.268.400 

6.426.852 

182.449.127 

18.244.940 

9 

15 

CORRISP.VENTILATI 

15 


35.421.024 

5.313.154 

112.574.020 

16.886.119 

9 

18 

CORRISP.VENTILATI 

18 


26.170.675 

4.710.721 

60.525.973 

10.894.675 

9 

20 

CORRISP.VENTILATI 

20 


639.884 

127.977 

1.990.742 

398.149 

9 

38 

CORRISP.VENTILATI 

30 


419.408 

159.375 

1.704.448 

678.090 

9 

.A2 

CORRISP.VENTILATI 

A2 


18.899.285 


42.931.621 







Totali 

235.803.413 

19.393.287 

643.220.920 

55.254.130 

10 

18 

ACQUISTI 18% 




6.775.817 

1.219.649 

8.082.117 

1.454.787 

11 

02 

ACQUISTI (BASE 

RIPARTO) 

2% 

61.110.455 

1.222.239 

156.857.360 

3.142.080 

11 

08 

ACQUISTI (BASE 

RIPARTO) 

8% 

11.506.559 

920.530 

42.592.619 

3.407.356 

n 

10 

ACQUISTI (BASE 

RIPARTO) 

10% 

51.864.121 

5.186.439 

151.228.252 

15.123.120 

11 

15 

ACQUISTI (BASE 

RIPARTO) 

15% 

28.584.507 

4.287.687 

87.939.403 

13.190.943 

11 

18 

ACQUISTI (BASE 

RIPARTO) 

18% 

21.119.536 

3.801.532 

53.573.565 

9.643.890 

11 

20 

ACQUISTI (BASE 

RIPARTO) 

20% 

516.382 

103.277 

1.889.709 

377.943 

11 

38 

ACQUISTI (BASE 

RIPARTO) 

38% 

338.459 

128.616 

1.713.598 

651.169 

il 

A2 

ACQUISTI (BASE 

RIPARTO) 

ART.2L 

15.251.590 


35.674.617 







Totalj 

190.291.609 

15.650.320 

531.469.123 

45.536.501 

20 

Al 

SPESE NON S06G. 

. ART 

.1 


-551.403 


-860.885 


20 

ES 

SPESE ESENTI ART.10 



50.000 




20 

NS 

SPESE NON S0G6. 

. ART 

.15 


127.246 


169.268 







Totali 

-374.157 


-691.617 



IVA A DEBITO 
IVA A CREDITO 
CREDITO PRECEDENTE 
IVA DEBITO/CREDITOC-) 


19.710.191 

16.869.969 

-481.573 

2.358.649 


Le operazioni IVA sono raggruppate in un piano conti definibile dairutilizzatore. La stampa 
della situazione IVA (qui sopra) permette di conoscere in tempo reale PIVA a debito o a credito. 
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Conto 1.1 


CASSA CONTANTI 


Oats 

ulti ma 

chiusura 31/03/83 Saldo precedente 

dare 

55.480.410 

N. Ili m 

Date r. 

Doc umento Desc risione 

RIPORTI 

DARE 

704513655 

AVERE 

649038245 

1417 

010483 

OERSAMENTO IN BANCA 1/2 CASSA 


11890000 

1418 

010483 

PAGATI STIPENDI MARZO 


8612644 

1419 

010483 

PAGATO FORNITORE F.308 


81070 

1420 

010483 

PAGATI FORN. DIVERSI 


2446170 

1421 

010483 

RISCOSSO N-ACC. 815 

91273 


1422 

010483 

RISCOSSO N-ACCR. 816 

47486 


1423 

010483 

INCASSO DEL GIORNO 

18268900 


1427 

020483 

INCASSO DEL GIORNO 

12675700 


1480 

050483 

VERSAMENTO IN BANCA 1/2 CASSA 


5000000 

1482 

050483 

PAGATO FORN. F.339 


142836 

1484 

050483 

PAGATI FORN. VARI 


2181685 

1485 

050483 

PAGATI FORNITORI DIV- 


1902300 

1486 

050483 

INCASSO DEL GIORNO 

6225300 


1487 

050483 

PAGATI FORNITORI DIV. 


1761224 

1488 

050483 

PAGATI FORN. DIVERSI 


1576554 

1489 

050483 

PAGATO FORNITORE F.877 


117650 

1491 

050483 

RISCOSSO NOTA ACCREDITO N.879 

39311 


1492 

050483 

RISCOSSO NOTA ACCREDITO N.880 

298950 


1493 

050483 

INCASSO DEL GIORNO 

6325800 


1505 

060483 

INCASSO DEL GIORNO 

RIPORTI 

6275200 

754767075 

634750378 


L’aggiornamento della cassa contanti eseguito a calcolatore, diventa semplice e immediato. 
Qui sopra: un esempio di come appaiono stampati i movimenti di un dato periodo. 


N. rn. 

Date r. 

Documento Deaeri 2 : ione 


DARE 

AVERE 




RIPORTI 

863738937 

306783767 

1723 

200433 

PAGATI FORN. VARI 



1946335 

1724 

200483 

RISCOSSO NOTA ACCR. 

1008 

49683 


1725 

200483 

RISCOSSO NOTA ACCR- 

1982 

llvSOOO 


1726 

200483 

PA6ATI FORN. VARI 



1435585 

1742 

210483 

INCASSO DEL GIORNO 


11457700 


1743 

210483 

VERSAMENTO IN BANCA 

1/2 CASSA 


4020000 

1744 

210483 

PAGATI FORN. VARI 



1028267 

1745 

210483 

RISCOSSO NOTA ACCR. 

N.1016 

36492 


1746 

210483 

INCASSO CLIENTE F.7 


118000 


1755 

220483 

INCASSO DEL GIORNO 


15614300 


1756 

220433 

VERSAMENTO IN BANCA 

1/2 CASSA 


7490000 

1757 

220483 

PAGATI FORN. VARI 



3409302 

1758 

230483 

INCASSO DEL GIORNO 


12927800 


1760 

260483 

INCASSO DEL GIORNO 


9733400 


1761 

260483 

VERSAMENTO IN BANCA 

1/2 CASSA 


10960000 

1762 

260483 

PAGATO INPS MARZO 



4423497 

1763 

260483 

PAGATO FORN. F.866 



2676741 

1764 

260483 

PAGATO FORN. F.856 



1258000 

1765 

260483 

PAGATI FORN. VARI 



2753320 

1766 

260483 

PAGATI FORN. VARI 

RIPORTI 

913344312 

4483011 

852ÓÓ7825 


Ancora un esempio di stampa, in un determinato periodo, dei movimenti della cassa contanti. 

Un altro vantaggio del computer è la sostituzione della scrittura a mano con quella, molto più chiara, della stampante. 








aGcnoìXi 

,con 

fxapplG 


NEI NOSTRI COMPUT» SHOP. 




Rotter professionali 
a più colori e formati 



Supporti magnetici e 
accessori di qualità 



Modulistica stampati 
libri e letterature 


SISTEMA Z 0 

1 - Gestione lagazzino 

2 - Gestione clienti 

3 - Gestione fornitori 

4 Gestione piano dei conti 

5 - 

6 - Gestione bolle 

7 - Corrispettivi 

8 “ Fatture 

9 - Ricevute bancarie 
le - 

8 - Fine Quale ? 


D I A C 0 

11 - Registrazioni di contabilita’ 

12 - Stanpe di contabilita’ 

13 - Contabilita’ tanutenzione 

t 

14 - 

15 - Caibia tipo carati, su stampante 

16 - Tabelle 

17 - Manutenzione 

18 " Salvataggio dati su floppy-disk 

19 - Recupero dati da floppy disk 

20 - Foriattazione dischetti 


Uno dei menù principali dei Sistema Zodiaco: le opzioni numerate ma vuote 
sono predisposte per soddisfare qualunque esigenza del cliente. 


TABELLA LIEO 

Cod.interno_ Cod.fornitore..Tipo 

Forn. ^ Descr. 


Anno Quantità’ Prezzo unitario Valore 


||applc computar 


DISTRIBUZIONE 
PER L'ITAUA 


.... Dove?!.... 


• UFF. COMM. - SHOW ROOM - SALE CORSI 
Corso Sardegna 36 int. 26 (GE) 
Tel. (010) 516796 

• COMPUTER SHOP 

Via San Vincenzo 129R (GE) 
Tel. (010) 581815 

• CENTRO ASSISTENZA TECNICA 
Corso Gastaldi 77R (GE) 

Tel. (010) 300797 



L’andamento degli ultimi 10 anni di magazzino è un utilissimo strumento 

compreso nel programma dell’Accaesse. 
























































le maschere, molto chiara e ordinata. 
Si nota, da questo punto di vista, solo 
la discrepanza che la ricerca all’inter¬ 
no dei vari menù non è trattata unifor¬ 
memente: a volte si usano le frecce, a 
volte si deve eseguire la scelta indi¬ 
cando il numero di opzione. Ma sono 
particolari trascurabili e dovuti sicura¬ 
mente al fatto che il programma è sta¬ 
to migliorato e completato in fasi suc¬ 
cessive. Semmai, la considerazione 
importante, che non toglie valore al 
programma come è strutturato oggi, 
ma che, se presa in considerazione, 
potrà aumentarne parecchio Tutilltà, è 
un’altra. L’uso del sistema gestionale 
SI.GE. deve essere fatto con una cer¬ 
ta attenzione da parte dell’operatore, 
non per quanto riguarda i dati contabi¬ 
li, bensì per quanto riguarda i dati ge¬ 
nerici, poiché è un po’ carente di siste¬ 
mi protettivi. Un esempio per tutti: se 
si chiede la stampa dalla pagina 32 
alla pagina 37 e l’operatore per errore 
imposta 32 e 3, dimenticando di batte¬ 
re il 7 dopo il 3, magari perché ha 
sfiorato il tasto 7 senza però che la 
macchina abbia preso l’input, la stam¬ 
pante va in loop. Un sistema di sicu¬ 
rezza che in questi casi, confrontando 
i due numeri, si blocchi se il primo è 
maggiore del secondo, eviterebbe 
l’inconveniente. Facciamo questa 
considerazione perché, nell’Ipotesi 
espressa all’inizio di questo articolo, 
la contabilità all’interno di una azien¬ 
da, almeno per quanto riguarda la di¬ 
gitazione dei dati, deve poter essere 
affidata a una persona non certo 
esperta di EDP, ma a un impiegato o 
un’impiegata che abbia una sufficien¬ 
te infarinatura di contabilità e basta, 
altrimenti i costi di personale annulle¬ 
rebbero i vantaggi economici di cui 
abbiamo parlato. 

Inoltre, sicuramente il sistema SI. 
GE. potrebbe prevedere dei servizi 
aggiuntivi come la stampa di una lette¬ 
ra di accompagnamento con relativo 
assegno per i pagamenti da effettuare 
in questo modo, visto che la contabili¬ 
tà stessa contiene tutti ì dati per prov¬ 
vedere a una funzione del genere ed è 
quindi una perdita di tempo da parte 
della persona che tiene la contabilità 
doversi mettere alla macchina da scri¬ 
vere per fare quello che potrebbe già 
fare il computer. 

Contabilità 2: Accaesse 
Informatica 

L’altro programma che è stato pro¬ 
vato dagli esperti di Applicando è il 
Sistema Zodiaco prodotto dall’Ac- 
caesse Informatica di Como (Via Ac- 


GESTIONE N A 6 A 2 Z I N 0 

1 - Novitentazioni di eagazzino 

2 - Visualizza/Hodifica parte statistica 

3 - Visualizza/Nodifica lifo 

4 -* Carico ordini-inpegni 

5 - Scarico ordini-iipegni 

6 - Staipa listini 

7 - Inventario e situazione 

8 - Riordino archivi 

9 - Recupero archivi 

8 - Fine Quale ? 



Il menù della gestione magazzino è ricco di opzioni utili, compresa quella 
della stampa listini secondo le necessità commerciali deirutente. 


STAMPA LISTINO 


Ordinato su : 1 - Cod.interno 

2 - Cod.fornitore Quale ? ^ 

Tipo listino (da 1 a 5) ? _ Prezziato ? 

Tutto Parchivio ? 


Dal codice : 
dal codice : 
dal codice : 
dal codice : 
dal codice : 


al codice : 
al codice : 
al codice : 
al codice : 
al codice : 


Sconto base : __ Per quanti incretenti ? 


Con caebio pagina su caibio sigla fornitore ? 


Con caratteri cotpressi ? _ Conforta ? 


Prepara la carta e poni la statpante 'ON-LINE" 
ESC per iniziare la statpa - ESC per sospenderla 


I 


La stampa del listini prevede cinque diverse possibilità di impaginazione 
e la scelta di stampare tutti o in parte gli articoli disponibili. 
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quanera 46, telefono 031/591040), 
valido, secondo gli ideatori, per azien¬ 
de che emettano fino a 12/15.000 fat¬ 
ture all’anno, e che gestiscano fino a 
15.000 prodotti in magazzino. Il pac¬ 
chetto è un integrato di gestione con¬ 
tabilità, magazzino, bollettazione, fat¬ 
turazione, gestione clienti e fornitori, li 
suo costo è di 4.500.000, IVA esclusa, 
per la configurazione base, ma il pro¬ 
gramma può essere adattato alle esi¬ 
genze del singolo cliente e in tal caso 
bisogna prevedere un costo aggiunti¬ 
vo di personalizzazione a partire da 
500.000 lire. Si tratta sicuramente di 
un ottimo programma sia dal punto di 
vista contabile sia dal punto di vista 
operativo. Quando si fa girare il pro¬ 
gramma di base colpisce subito il fatto 
che in alcuni menù figurino delle op¬ 
zioni numerate ma vuote: sono predi¬ 
sposte per soddisfare qualunque esi¬ 
genza del cliente. Comunque, già di 
serie sono disponibili i dati statistici di 
magazzino che forniscono la quantità 
di venduto nel mese e il prezzo medio 
di acquisto e di vendita, sempre nel 
mese, per ogni articolo. Quando si 
stampano i relativi dati, automatica- 
mente vengono fornite le percentuali 
sul totale di quel mese e del mese 
precedente, in modo da vedere se c’è 
stato un incremento o un decremento. 
Un altro dato interessante riguarda 
l’andamento degli ultimi 10 anni di ma¬ 
gazzino, fornito anno per anno, per 
quantità, prezzo medio, valore di ma¬ 
gazzino calcolato secondo le rima¬ 
nenze. Il piano dei conti è alfanumeri¬ 
co e pertanto i codici possono essere 
definiti con criteri mnemonici e non 
solo tabellari. Di grande interesse, vi¬ 
sto che le multe in questo caso non 
sono rare, è il controllo automatico del 
codice fiscale e di partita IVA. 

La partenza della contabilità è la 
bolla. Prima di fare le fatture la bolla 
può tuttavia essere modificata (nel ca¬ 
so di un rifiuto di merce, o simili). La 
fatturazione avviene in automatico e 
aggiorna in tempo reale l’allegato tre¬ 
dicesimo e il registro IVA. Anche le 
ricevute bancarie sono in automatico 
e possono essere raggruppate fino a 
due fatture per ricevuta. Una finezza: 
nel caso appena esposto, il program¬ 
ma fa automaticamente la divisione 
anche di un numero non divisibile per 
tre. Per esempio: se occorre emettere 
tre ricevute bancarie per un valore 
complessivo di 100 lire, due porteran¬ 
no la cifra 33 e una 34. Gli archivi dati 
vengono aggiornati immediatamente, 
con verifica di congruità dei dati 
stessi. 

Particolare attenzione è stata mes- 

m 
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La mela: una tentazione 
irresistibile. 

L’hai morsa: un’emozione 
incredibile. Cominci a 
gustarla: un sapore 
insaziabile. T u applichi? Noi 
applichiamo. Ogni due mesi, 
in abbonamento, Applicando 
porta in casa tua la fragranza 
semplice e odorosa della 
mela. Per saperne di più. 

Per non perdere tempo. 

Per scoprire subito tutte le 
altre cose che puoi fare con la 
tua mela Apple II, Apple III, Lisa... 



Consulenza hardware e software: 

come, cosa, quando. Listati 
collaudati da copiare: per lavorare, 
per giocare, per imparare. Test dei 
programmi in commercio: 
confronti, valutazioni, 
suggerimenti. Applicazioni degli 
altri: chi, dove, cosa. 
Prove di accessori: quali, perchè, 
quanto. Poi le rubriche: i listini 
aggiornati, il mercatino delle 
mele,chiedi un programma, 
guadagnare col computer. 
^ N ovità, Utilities, routine, 

spunti, suggerimenti, idee. 


Tu appfidii? 
Noi appfidtiamo. 



••• c puoi vinctrc 
un plottor Wntnnabt 


Applicando é bimestrale. 
Per applicare con noi 
abbonati inviando il 
coupon a 
Editonica sjJ.,.. 

C.SO Manforte 39, 

20122 Milano. 

Oppure aquistak): 
nei migliori 
Computer Shop. 

Per dar più polpo 
alla tua mela. 


Gratis, se ti abboni subito! 

Un dischetto con tre utilissimi superprogrammi __ 

e la Facility Card Applicard che, fra gli altri vantaggi, 
darà diritto a sconti sui programmi che verranno 
offerti da Applicando. Compila e spedisci 
subito questo tagliando a Editronica sjJ., 

C .80 Manforte 39, 20122 Milano. 



Sì, mi abbono! _ 

Inviatemi sei numeri di Applicando, il dischetto 
con i tre programmi gratis, e la carta Applicard. 

□ Allego assegno non trasferibile di lire 30 mila intestato a 

Editronica sjI _ 

□Allego ricevuta di veiàbmento di lire 30 mila sul conto corrente 
postale n. 19740208 intestato a Editronica sjJ., Cso Manforte 39, 
20122 Milano._ 

□ Pago fin d’ora lire 30 mila con la mia carta di credito BankAmericard 

numero_scadenza_ 

autorizzando la Banca d America e ditalia ad addebitare l’importo 

sul mio conto BankAmericard. 


ì 


Cognome. 

Via_ 

Cap- 


.Nome. 


.N._ 


.Città- 


Data. 


.Firma. 


Desidero che il mio abbonamento 
abbia inizio con il n°. 







































sa dall'Accaesse nelle protezioni con¬ 
tro il maggior numero possibile di erro¬ 
ri manuali in fase di digitazione; inoltre 
non solo una serie di avvisi mette in 
guardia l’operatore, ma se questi in¬ 
serisce un dato sbagliato o contraddit¬ 
torio, automaticamente il computer 
non lo memorizza. 

Per quanto riguarda il magazzino, il 
Sistema Zodiaco ha la possibilità di 
fornire la movimentazione di un deter¬ 
minato periodo per vedere se qualche 
articolo è poco richiesto o viceversa. 
Per ogni articolo di magazzino è previ¬ 
sto un costo minimo, uno massimo e 
uno medio, calcolati automaticamen¬ 
te a seconda del prezzo di acquisto. È 
possibile così conoscere In ogni mo¬ 
mento il prezzo minimo al quale ven¬ 
dere la merce, in previsione di sconti. 

Le registrazioni delle fatture clienti- 
fornitori avvengono In automatico: ba¬ 
sta inserire imponibile e aliquota IVA, 
e lo sbilancio viene attribuito alle con¬ 
tropartite scelte dall’operatore in un 
piano del conti strutturato a tre livelli. 

Anche il pericolo maggiore, seppu¬ 
re raro, cioè la caduta di tensione 
mentre si stanno inserendo dei dati, è 
stato previsto; per questo esiste la 
possibilità di verificare i dati contabili 
per mezzo di un controllo automatico 


STAMPA ARTICOLI NON MOVIMENTATI 

Dalla data : • ,J J 

Ordinata su : 1 - Codice interno 

2 - Cod.Tornitore Quale? ^ 

Tutto l'archivio ? _ 

Dai codice : al codice : 


Conferia ? _ 

Prepara la carta e poni la stampante “ON LINE* 
ESC per iniziare la STAMPA - ESC per sospenderla 


I tecnici deil’Accaesse hanno anche previsto l’esigenza di conoscere 
quali articoli in un determinato periodo si sono venduti di meno. 



computers 


la più estesa e fornita 
rete di vendita Apple 
nel lazk) 

PROGRAMMI, PERIFERICHE, CORSI, 'MERCATO USATO 
FACILITAZIONI E CREDITO PERSONALE 


Sede centrale: Roma-Via Flavio Domiziano, 10 (Eur) -tel.06/5126700-5138023 
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Cod.interno 

Forn. Descr. 

Cod.fornitore 

Tipo 

Diai. 

Ui Quantità’ 

Q.iipeqnata 


Scorta lin 

Quant.in rocchetti N. 

_ Base raie 

- 

Scorta lax 

Costo lin 

0. costo Bin 

Costo ledio 


Costo lax 

Q.costo lax 

Q.ultiio acquisto 

Data ult.acquisto 

J.J^ 

Lotto riordino 

Progr.di carico 

Data ult.vendita 

/ / 

Q.ordinata 

Disponibilità’ 

Prezzo listino 


Iva _ 


della congruenza dare/avere con se¬ 
gnalazione di eventuali anomalie sulle 
quali si può intervenire manualmente. 

La velocità di ricerca dei dati imma¬ 
gazzinati nel Profile è notevole, in 
quanto viene svolta col sistema file 
indexed sequential, con uno o due co¬ 
dici alfanumerici di 11 o 19 caratteri; in 
parole povere, non esaminando dato 
per dato, bensì individuando un seg¬ 
mento di dati aH'interno dei quali, per 
avvicinamento progressivo, esegue la 
ricerca finale. Un’altra caratteristica 
particolare di questo programma sono 
le stampe parametrìzzate a scelta del¬ 
l’operatore, per mezzo delle quali si 
ottiene la stampa dei dati relativi a 
clienti, fornitori e articoli di magazzino. 
Queste stampe sono personalizzabili 
in ogni momento dall’utente stesso. 

Conclusioni 


Conferiate ? 


Una tempestiva politica degli acquisti è facilitata dalla possibilità 
di conoscere in qualsiasi momento le scorte di magazzino e i costi. 


Entrambi i programmi, pur con le 
diverse caratteristiche (e il diverso 
prezzo) sono sicuramente validi e in 
grado di soddisfare le esigenze di 
qualsiasi azienda piccola o media. Se 
un neo c’è, sta nel prezzo: non ecces¬ 
sivo, viste le caratteristiche dei due 
prodotti, ma che potrebbe diminuire a 
vantaggio di produttori e di utilizzatori 
grazie a una maggiore diffusione. 
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Scrivere da sé i propri programmi non è difficile. 

Per chi comincia, ecco la prima puntata di una guida al Basic 

utile anche a chi sa già tutto... 


Variabile, 
oh cara! 



S crivere da sé i propri programmi? 

É più facile di quanto si pensi, e più 
utile di quanto si creda. E anche chi 
ritiene che comunque non diventerà 
mai in grado di scriversi da solo un 
programma di grande complessità, o 
che non ne avrà mai il tempo o la 
voglia, può trarne vantaggio. Se impa¬ 
ra ad usare il Basic, infatti, se anche 
non avrà voglia di scrivere un intero 
programma, potrà almeno intervenire 
in programmi scritti da altri. E magari 
un po’ di Basic è tutto quello che oc¬ 
corre per modificare quei programmi 
in modo che operino esattamente in 
modo adatto alle proprie esigenze. 

Che cosa 
sono le variabili? 

Quando si fa la conoscenza di qual¬ 
cuno si presta istintivamente attenzio¬ 
ne al suo nome e si bada a ricordarlo, 
specialmente se si prevede di incon¬ 
trarlo ancora in futuro. Il suo nome 
serve da indicatore, per identificarlo. 
Qualora lo si scorgesse tra la folla e si 
volesse attirare la sua attenzione si 
potrebbe chiamarlo per nome, spe¬ 
rando di essere uditi nel frastuono. 

Adesso supponiamo che dopo di¬ 
versi anni riconosciamo l’uomo men¬ 
tre sta attraversando la via. È invec¬ 
chiato, ha la barba bianca e i suoi 
capelli si fanno radi. È indubbiamente 
diverso dalla persona che ricordava¬ 
mo, eppure quando facciamo il suo 
nome si volta, ci viene incontro e an¬ 
diamo insieme al bar a prendere il 
caffè. 


In un programma una variabile è un 
nome attribuito a una quantità che vo¬ 
gliamo amministrare aH’interno del 
programma. Non tutte le quantità del 
genere hanno bisogno di una variabi¬ 
le. Per esempio se il numero 2.5 (l’Ap¬ 
ple usa il punto al posto della virgola, 
per distinguere i decimali) viene usato 
nel programma soltanto una volta, e il 
suo valore non cambierà mai, non è 
necessario attribuirgli un nome. Basta 
usare le cifre numeriche, 2.5. 

Supponiamo invece di immettere 
spesso in un programma il nome «Ru¬ 
binetti Rossi SpA». Ecco un candidato 
plausibile a un nome variabile, dicia¬ 
mo RR$. (Più oltre diremo dell’altro 
sulla scelta dei nomi). 

Quando si è attribuito il valore «Ru¬ 
binetti Rossi SpA» all’indicatore RR$ 
il computer presenterà «Rubinetti 
Rossi SpA» ogni volta che in qualsiasi 
punto del programma verrà usato 
RR$. Ciò fa risparmiare tempo quan¬ 
do si scrive il programma e fa rispar¬ 
miare anche spazio in memoria. Un 
altro vantaggio lo otteniamo quando 
apprendiamo che Rossi ha appena 
venduto la sua fabbrica a Verdi, e che 
la ragione sociale diventa «Rubini 
Verdi SpA». Se non avessimo usato 
RR$ per indicare il nome della ditta 
sarebbe stato necessario cambiare 
questo nome in tutto il programma, 
magari in un paio di dozzine di punti. 
Usando una variabile basta invece 
cambiare ciò che essa (nel nostro ca¬ 
so RR$) rappresenta. 

La maggior parte dei programmi 
comprende calcoli I quali impiegano 


valori numerici che possono cambiare 
da una volta alla volta successiva, e in 
certi casi cambiare addirittura varie 
volte nell’ambito del programma stes¬ 
so. Sarebbe impossibile scrivere un 
programma che permettesse una si¬ 
mile cosa senza il ricorso a variabili. 
Supponiamo per esempio che si stia 
contando il numero delle buste paga 
stampate in un programma di retribu¬ 
zione del personale. Sia PC% r«indi- 
catore» o variabile che rappresenta il 
numero delle buste paga. Prima di av¬ 
viare il procedimento di stampa il pro¬ 
gramma fisserà il valore di PC% a 
zero; poi, di mano in mano che viene 
stampata ogni busta paga, aggiunge 
1 al precedente valore di PC%. In 
questo modo PC% è tenuto alla pah, 
e alla fine del programma conterrà il 
numero che rappresenta il numero to¬ 
tale di buste paga stampate. Una va¬ 
riabile usata in questo tipo di applica¬ 
zione è denominata accumulatore o 
contatore, e l’istruzione che svolge la 
funzione di incremento è semplice- 
mente: 


Pl:^ - m ♦ 1 


Questa formula suona cosi: «Per 
ricavare il nuovo valore di PC% si ag¬ 
giunga 1 al vecchio valore di PC%». 
Questo tipo di formula non ha senso in 
algebra (come può una qualsiasi cosa 
essere uguale a se stessa più 1 ?), ma 
in Basic il segno di uguale in una 
equazione come questa significa «as- 
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segna il risultato del calcolo che se¬ 
gue alla variabile indicata». Simili 
equazioni sono denominate istruzioni 
di assegnazione (assignment state¬ 
ment). Nel nostro esempio il valore di 
PC% cambia dopo la stampa di cia¬ 
scuna busta paga, ma il computer non 
. ci bada. 

Ogni volta che nel programma vie¬ 
ne richiesto PC% il computer tira fuori 
il valore corrente di PC% e lo usa. 
Proprio come il nostro amico che sta 
invecchiando ha risposto ancora al 
suo nome, pur essendo cambiato nel 
corso degli anni, la variabile PC% rap¬ 
presenta ancora il conto delle buste 
paga, anche se il suo valore cambia di 
mano in mano che il programma gira. 

La scelta del nome 

Il nome che si sceglie per la variabi¬ 
le deve riflettere il tipo d’informazioni 
che la variabile rappresenta. Il compu¬ 
ter può memorizzare due categorie 
generali di informazioni: numeriche 
(numeri puri e semplici) e dati stringa 
(come nomi, date e via dicendo). 
Qualsiasi variabile usata per i dati 
stringa (talvolta denominati dati alfa- 
numerici o dati letterali) deve termina¬ 
re con il segno del dollaro. Nell'esem¬ 
pio fatto sopra abbiamo scelto RR$ 
per rappresentare il nome della ditta. Il 
segno del dollaro non era facoltativo. 

Le informazioni numeriche consta¬ 
no esclusivamente di numeri, con un 
eventuale segno + o - e un punto 
decimale. L’Apple permette di rappre¬ 
sentare le informazioni numeriche in 
due forme diverse. Se il valore, o i 
valori, che una determinata variabile 
rappresenta saranno sempre numeri 
interi, senza frazioni decimali, il nome 
della variabile dovrebbe terminare 
con un segno di percentuale, come 
PC%. 

L’esempio fatto sopra risponde alle 
esigenze di una variabile intera, e per 
conseguenza applica il segno di per¬ 
centuale quale parte della variabile. 
Dato che denotare le variabili intere 
con il segno di percentuale è facoltati¬ 
vo molti programmatori fanno a meno 
della notazione. Tuttavia indicando 
chiaramente al computer quali varia¬ 
bili sono per i numeri interi si risparmia 
spazio in memoria, e si fa girare il 
programma con maggiore velocità e 
maggiore efficienza. Si osservi che 
l’Applesoft non permette l’impiego di 
variabili intere come contatori nei loop 
Por... Next e nelle Istruzioni DEF. 

Le variabili numeriche che rappre¬ 
sentano numeri i quali non sono ne¬ 
cessariamente interi (numeri reali) 
vengono date senza alcun simbolo 
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dopo il nome. Così il valore^5»021^5^/rTìJnte si usino gli stessi due primi ca- 
può essere assegnato a una flprIabilS ratteri per due variabili diverse 


come RZ. I numeri reali richiedono più 
spazio in memoria, e quindi si usino 
con parsimonia le variabili numeriche 
intere. Certi Basic permettono due tipi 
di variabili numeriche Intere: a preci¬ 
sione semplice (Indicate da un punto 
esclamativo dopo il nome, come RZ!) 
e a precisione doppia (indicate da un 
# dopo il nome, come RZ#). L’Apple¬ 
soft Il consente una precisione fino a 
dieci cifre per i numeri reali, e quindi la 
mancanza di un modo a precisione 
doppia è probabilmente Irrilevante se 
non si ha a che fare con il bilancio 
nazionale. 

Un’altra caratteristica di certi Basic 
è una funzione DEF che permette al 
programmatore di specificare i tipi di 
variabile in massa all’inizio del pro¬ 
gramma. Per esempio DEFINÌ L-Q 
chiederebbe che tutte le variabili re¬ 
canti come Iniziale la lettera alfabetica 
L, M, N, O, P o Q fossero intere (se 
non altrimenti indicate da un $, I o #). 
L’utilizzatore di Apple che converte un 
programma da un altro sistema deve 
fare attenzione a questa caratteri¬ 
stica. 

Abbiamo visto che le variabili pos¬ 
sono avere o no identificatori di tipo 
alla fine del nome. Adesso dobbiamo 
determinare quali nomi siano permes¬ 
si. Questo varia da un computer all’al¬ 
tro. Dipende anche dal livello del Ba¬ 
sic che si sta usando. Nell’Apple Inte- 
ger Basic si può usare qualsiasi com¬ 
binazione di lettere e numeri di lun¬ 
ghezza ragionevole. La sola restrizio¬ 
ne è che il primo carattere della varia¬ 
bile deve essere alfabetico. 

D’altro canto l’Applesoft Basic la¬ 
scia la stessa disponibilità dell’lnteger 
Basic quanto a lunghezza delle varia¬ 
bili, ma riconosce solo i primi due ca¬ 
ratteri del nome e ignora il resto. Così 
PAGA, PARTE e PAGAI 983 saranno 
considerati tutti la stessa variabile, 
PA. Come nell’lnteger Basic il primo 
carattere deve essere alfabetico. Ge¬ 
neralmente è preferibile attribuire un 
carattere o due soltanto per le variabili 
nell’ambito di un programma: per 
quanto non sia altrettanto descrittivo, 
fa risparmiare memoria rispetto ai no¬ 
mi più lunghi, ed evita che inawertita- 


Un’altra importante limitazione al 
nome che si sceglie per la variabile è 
che si deve evitare di usare una parola 
significativa del Basic. Il computer 
confonderebbe la variabile con un co¬ 
mando del Basic. Queste parole vieta¬ 
te sono chiamate «parole riservate», 
e se ne può trovare una lista nel ma¬ 
nuale Applesoft. L’uso di una parola 
riservata come variabile produrrà un 
errore di sintassi quando si cercherà 
di far girare II programma. Anzi, l’uso 
di una parola riservata come parte 
qualsiasi della variabile sarà causa di 
problemi. Per esempio il computer 
leggerà l’IF di SPIF come parola signi¬ 
ficativa di comando. Si può evitare 
questo problema limitando le variabili 
a due caratteri. Le poche parole signi¬ 
ficative di due caratteri (IF, QR, FN, 
QN, AT, GR e TQ) sono facili da ricor¬ 
dare. 

Gli errori causati dall’uso di una pa¬ 
rola significativa come parte di una 
variabile sono difficili da diagnostica- 
re. Quando si esamina la linea che dà 
un problema, in questi casi capire di 
cosa si tratti diventa piuttosto compli¬ 
cato. Si possono analizzare tutti i co¬ 
muni problemi di sintassi, ma il pro¬ 
gramma insiste nel dire che in quella 
linea c’è un errore di sintassi. 

Limitazioni 
delle variabili 

Le variabili stringa possono essere 
qualsiasi stringa di caratteri alfanume¬ 
rici, compresa la maggior parte dei 
caratteri speciali. Di solito il punto in¬ 
terrogativo è l’unico carattere vietato 
per le stringhe, dato che il punto inter¬ 
rogativo dice al computer dove si tro¬ 
vano l’inizio e la fine della stringa di 
informazioni. 

Una variabile stringa non può esse¬ 
re lunga più di 255 caratteri, ma può 
avere anche zero caratteri. Per esem¬ 
pio ZZ$ = ” ”, dove le due coppie di 
virgolette non hanno spaziatura fra lo¬ 
ro, è un’istruzione di assegnazione 
valida, che fa rappresentare alla va¬ 
riabile ZZ$ una stringa nulla. Quando 
si assegna un valore a una variabile 
stringa si racchiuda fra virgolette la 
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stringa di caratteri. Così la frase NM$ 
= Giuseppe Garibaldi produrrebbe un 
errore di discordanza (type mismatch 
error), mentre NM$ = "Giuseppe Ga¬ 
ribaldi” sarebbe accettabile. 

Le variabili intere sono limitate al¬ 
la rappresentazione di valori fra 
- 32767 e -i- 32767. Per chi sia inte¬ 
ressato a sapere perché le variabili 
intere siano limitate da siffatti strani 
numeri, ecco la spiegazione: 2 eleva¬ 
to alla quindicesima potenza dà 
32768; i numeri interi sono rappresen¬ 
tati nella memoria del microcomputer 
da due byte, che corrispondono a 16 
cifre binarie (bit); se uno di questi bit 
viene usato per rappresentare il se¬ 
gno del numero ne restano solo 15 per 
rappresentare il numero stesso, da 
cui la limitazione di ± 32767. 

Le variabili reali possono avere fino 
a nove cifre decimali. Non si è però 
limitati a 999 miliardi. È solamente 
un’indicazione del grado di precisione 
che un simile numero deve avere. La 
decima cifra sarà sempre arrotondata 
e non sarà visualizzata. Per i numeri 
maggiori di 999 miliardi, e minori di 
0.01, il computer usa la notazione 
esponenziale (o scientifica), espri¬ 
mendo il numero come un dato nume¬ 
ro di volte Tapproprlata potenza di 10. 

Per esempio 10 al quadrato fa 100, 
e così 893.22 può essere rappresen¬ 
tato come 8.9322 per 10 al quadrato, 
o 8.9322 E + 02, dove la lettera «E -i- 
02» va letta come «per dieci alla se¬ 
conda potenza». Analogamente 1/ 
1000 è 10 alla potenza - 3, e così 
0.003958 può essere rappresentato 
come 3.958 E - 03. Usando la nota¬ 
zione esponenziale il computer può 
esprimere numeri grandi come 1.00 E 
+ 38 e piccoli come 1.00 E - 38, con 
una precisione di nove cifre decimali. 
Limitazioni del genere dovrebbero 
soddisfare la maggior parte degli abi¬ 
tanti della terra. 

L’azzeramento 
delle variabili 

Come si può immaginare un pro¬ 
gramma che gira da qualche tempo 
ha probabilmente Immagazzinato in 
memoria un'intera lista di variabili. Ci 
si potrebbe ragionevolmente chiedere 






\ : % •\* * 


•••• • • 
^ ^ ••• • 

X •••• 




slÉ^lwaflSbili memorizzate i 


in un pro¬ 


gramma possano Intralciare le varia¬ 
bili necessarie a un programma suc¬ 
cessivo. 

La risposta è che quando si batte il 
comando Run per eseguire un pro¬ 
gramma tutte le variabili vengono az¬ 
zerate. Così non c’è possibilità alcuna 
di riporto da un programma ai succes¬ 
sivo. Per lo svolgimento dello stesso 
compito nell’ambito di un unico pro¬ 
gramma, si può usare un altro coman¬ 
do del Basic, Clear. 

Le variabili possono essere usate 
anche nel modo Immediato (o di co¬ 
mando). Se ne faccia una prova con il 
computer acceso e pronto. Si batta A 
= 25 e si prema RETURN. Adesso si 
digiti PRINT A, SQR(A) e si prema 
RETURN. Si dovrebbe veder apparire 
sullo schermo i numeri 25 e 5 (la radi¬ 
ce quadrata di 25). Ogni volta che si 
userà II computer come calcolatrice si 
troverà molto utile memorizzare certi 
numeri come variabili per il richiamo 
successivo (o ripetuto). 


Numerica o alfanumerica? 


I numeri possono essere rappre-. 
sentati con l’uno o l’altro dei due tipi di 
variabile numerica o con variabili 
stringa (alfanumeriche). Fra le due 
rappresentazioni c’è una importante 
differenza. Se un numero è rappre¬ 
sentato da una variabile stringa viene 
preso come «literal» (letterale): il 
computer non lo riconoscerà come 
numero e sarà Interpretato come 
stringa di caratteri soltanto. Una rap¬ 
presentazione del genere può essere 
adatta, per esempio, per i codici di 
avviamento postale. Ma se si vuol 
eseguire con i numeri un’operazione 
matematica di qualsiasi tipo si usi una 
variabile numerica per rappresentare 
il numero. Per esempio la linea: 


Al = "I.355': = -2.8661- ; 

PRINT A$ ♦ 


stamperà 1.3552.8661, dato che i nu¬ 
meri sono rappresentati da variabili 
stringa e il segno +, quando è usato 
con variabili stringa, non fa che conca¬ 
tenare le due stringhe. 


Allineamento 
dei punti decimali 

È possibile convertire dati numerici 
in informazioni stringa e riconvertirli, e 
certi casi questa caratteristica è 
•«ttile. 

►1^ Qualche Basic ha un’Istruzione di 
formattazione deH’uscIta, come una 
istruzione Print Using, nella quale il 
programmatore può specificare con 
esattezza l’aspetto dell’output stam¬ 
pato, e che permette la stampa In co¬ 
lonna di numeri come 1.33, 2.8, 1000 
e 0.01 con tutti i punti decimali corret¬ 
tamente allineati. 

L’Apple Basic non dispone di que¬ 
sta possibilità, e quindi si devono con¬ 
vertire tutti i numeri in stringhe, usan¬ 
do la funzione STR$( ), e poi adattare 
le stringhe In modo che ogni espres¬ 
sione numerica letterale abbia lo stes¬ 
so numero di caratteri sulla sinistra del 
punto decimale. Il modo migliore per 
farlo è quello di usare una funzione 
definita o una subroutine nell’ambito 
del programma. Se si sceglie una su- 
broutlne la stessa subroutlne può an¬ 
che arrotondare tutti i numeri alla pre¬ 
cisione desiderata prima di convertirli 
in stringhe e di attuare il trattamento 
delle stringhe. 

Supponiamo che X sia la variabile 
che rappresenta un ammontare in dol¬ 
lari con cui si sta lavorando. 

10 DZ = 2 

11 X = !NT (X * 10 * DX ♦ .5.) ./ 

INI (10 * DX + .5) 

12 2Z$ = sm 00 

13 2$ = 

H 2X = 0 

15 FOR I = 1 TO LEN (22i) 

16 IF MIW (22$,1,1) = 2$ THEN 
ZX = I 

17 NEXT I 

13 IF ZX < ■> 0 THB^ 21 
19 22$ = 22$ ♦ LEFT$ 

C.0800800-,DX + 1) 

28 GOTO 24 

21 IF LEN (22$) - 2X = DX THEN 
24 

22 22 $ = 22 $ + - 0 - 

23 GOTO 21 

24 22$ = RIGKT$ (‘ ' ♦ 

22 $, 10 ) 

25 RETURN 

Il valore memorizzato in X è stato 
adesso convertito in una variabile 
stringa ZZ$ di esattamente dieci ca¬ 
ratteri (compresi gli spazi sulla sini¬ 
stra), con esattamente due cifre alla 
destra del punto decimale. 

Questa breve subroutine può esse- 
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re usata in qualsiasi programma che 
contenga informazioni finanziarie. A 
D% viene assegnato il valore di 2, per 
rappresentare il numero di posti alla 
destra del punto decimale; due infatti 
ne devono essere riservati se i numeri 
devono essere espressi in dollari e 
cent. Il numero viene quindi arroton¬ 
dato al cent più vicino, convertito in 
stringa con l’impiego della funzione 
STR$( ) e poi si determina, alla linea 
16. la posizione del punto decimale. 
Ciò è necessario perché un numero 
come 35.00 sarebbe rappresentato 
semplicemente come 35, mentre 
27.60 sarebbe indicato come 27.6. 

Per ottenere numeri che abbiano 
sempre due cifre (compresi gli zeri di 
coda) sulla destra del punto decimale 
si deve stabilire se ci sia un punto 
decimale, e in caso affermativo dove 
si trovi. Il valore di Z% sarà 0 se non 
c’è punto decimale; altrimenti verrà 
detto quante cifre ci siano sulla sini¬ 
stra del punto decimale, più 1. 

Questo valore viene comparato con 
l'intera lunghezza di ZZ$ usando la 
funzione LEN( ), e se viene trovato 
che ci sono meno di D% cifre alla 
destra del punto decimale viene appli¬ 
cato uno 0 letterale alla fine di ZZ$ e 
viene analogamente valutata la nuova 
ZZ$. Infine, a linea 24, ZZ$ viene ap¬ 
plicata alia fine di una stringa di dieci 
spazi vuoti, e i dieci caratteri più a 
destra vengono assegnati nuovamen¬ 
te a ZZ$. Ciò completa in pratica il 
numero letterale con tanti spazi vuoti 
davanti alla prima cifra quanti ne oc¬ 
corrono. 

Per usare questa subroutine in un 
numero rappresentato come, dicia¬ 
mo, PR basta assegnare PR a X, 
(X=PR), e Gosub 10: 


.X=PR 
GOSUB 10 
PRINT ZZ$ 


Può darsi che si voglia cambiare il 
valore assegnato a D% nella linea 10 
per avere più di due posti sulla destra 
del punto decimale. Si può anche 
cambiare il numero degli spazi vuoti e 


il numero dei caratteri presi dalla fun¬ 
zione RIGHTS a linea 24, in particola¬ 
re se si ha a che fare con applicazioni 
differenti. In ogni caso I risultati visua¬ 
lizzati avranno un aspetto più profes¬ 
sionale con tutti i numeri incolonnati al 
posto giusto. 

Le stringhe possono essere ricon¬ 
vertite nei loro valori numerici usando 
la funzione VAL( ). Per esempio se X$ 
= ”3.14159” allora X = VAL(X$) as¬ 
segnerà il valore numerico 3.14159 
alla variabile X, di modo che il valore 
potrà essere usato In operazioni ma¬ 
tematiche. Questa situazione si verifi¬ 
ca più comunemente come conse¬ 
guenza di una istruzione Input che ri¬ 
chiede aH’operatore di digitare una ri¬ 
sposta a una domanda visualizzata. 
Se la variabile usata con l’istruzione 
Input è una variabile stringa (per 
esempio INPUT X$), ma l’Informazio¬ 
ne numerica digitata dev’essere valu¬ 
tata come dato numerico, la funzione 
VAL( ) viene a trarre In salvo. 

Un’altra utile applicazione della fun¬ 
zione VAL( ) consiste nel determinare 
il mese quando una data è stata intro¬ 
dotta in forma di 8 byte come MM/GG/ 
AA a indicare mese, giorno e anno. 
Per esempio se DT$ = ”06/12/82” al¬ 
lora DT = VAL(DT$) assegnerebbe il 
valore numerico + 06 a DT. 

La routine di scelta 
sul menu resa facile 

Molti programmi applicativi sono 
destinati all’uso da parte di persone 
estranee al mondo dei computer. Sl¬ 
mili programmi sono solitamente pilo¬ 
tati da menu, il che vuol dire che sullo 
schermo viene visualizzata una lista 
di opzioni corrispondenti alle diverse 
funzioni del programma. L’operatore 
ne sceglie una e preme il tasto relati¬ 
vo. Il programma salta allora alle routi¬ 
ne che riguardano la funzione selezio¬ 
nata. 

L’istruzione di salto deve essere nu¬ 
merica, e quindi molti menu visualiz¬ 
zano le opzioni numerandole, e l’ope¬ 
ratore deve premere il tasto di un nu¬ 
mero per fare una determinata scelta. 
Questo metodo presenta due incon¬ 
venienti. In primo luogo se ci sono più 
di dieci opzioni l’operatore deve pre- 
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NOVITÀ 


I 


SCEGLI... 


<A> AGGIUNGERE UN RECORD 
<M> MODIFICARE LN RECORD 
<C> C/VICELLARE UN RECORD 
<S) STAMPARE LN RECORD 


<y> CEDERE UN RECORD 
<R> RITORNO MENU PRINCIP. 
<?> IN CASO DI DUBBIO 
<X) PER FINIRE 


DIALE ? 


BUFFER PER 
QUALUNQUE 
STAMPANTE 
CON STANDARD 
CENTRONICS. 


Un esempio di menù che invece dei numeri fa uso di chiavi di 
seiezione mnemoniche. 


mere due tasti numerici e il tasto RE¬ 
TURN, il che richiede tre battute. La 
seconda difficoltà sta nel fatto che è 
facile premere accidentalmente un ta¬ 
sto sbagliato quando tutte le scelte 
sono numeriche. 

Un modo per evitare questi proble¬ 
mi e rendere più agevole il compito 
all’operatore del programma consiste 
nell’impiego di lettere mnemoniche 
per le risposte. Così il menu visualiz¬ 
zato in figura 1 dà istruzione all’opera¬ 
tore di premere uno di otto tasti. La 
subroutlne seguente accetterà solo le 
otto risposte volute, ignorando qual¬ 
siasi altra battuta di tasto. Inoltre 
usando tasti alfabetici che abbiano re¬ 
lazione con le rispettive risposte si ri¬ 
duce la possibilità di errore. Si può 
rispondere a una qualsiasi richiesta di 
scelta fra più di dieci con la pressione 
di un solo tasto. 

La subroutine qui sotto gestirà bene 
questa situazione. Ma prima di usarla 
si devono mettere le seguenti linee 
immediatamente dopo la serie di istru¬ 
zioni di stampa che imposta per prima 
cosa la visualizzazione del menu. 


PRINT -QUALE? *; 
2Z$=-AMCSVR?X” 
GOSUB 30 


ZZ$ è un elenco delle risposte accet¬ 
tabili. La subroutine che tratta la rispo¬ 
sta di tastiera è: 


38 GET 2% 

31 2'/, = 0 

32 'fOR i = 1 io LEf^ (ZZi) 

33 IF MID$( 2 Z$.I.l) = Z^ THEf^ Z>^ 
= I 

34 NEXT I 

35 IF Z:^ = 0 THEf^ 30 

36 PRINT -;Z$;- 

37 RETLlRf^ 


L’istruzione Get agisce come istru¬ 
zione Input per un’unica battuta di ta¬ 
sto, e risponde immediatamente sen¬ 
za che l’operatore debba premere 
RETURN. Una volta premuto un tasto 
il programma avanza all’istruzione 
successiva. In questa routine viene 
cercata una corrispondenza fra Z$ e 
uno dei caratteri in ZZ$. Se non si 
trova corrispondenza il programma 
torna (con l’istruzione 35) all’istruzio¬ 
ne Get (linea 30). Se viene trovata una 
corrispondenza la scelta è stampata 
sullo schermo e il programma torna 
airistruzione che segue l’istruzione 
Gosub 30. 

Il ritorno viene fatto con un valore 
numerico, Z%, che corrisponde alla 
scelta nell’ordine in cui è apparsa in 
ZZ$. Così Z% = 1 se la scelta è A, Z% 
= 2 se la scelta è M, e via dicendo. Al 
ritorno alla sequenza principale del 
programma si può usare un’istruzione 
come: 
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Memorizza immediata¬ 
mente 8 kbyte in uscita 
dal calcolatore e li invia 
successivamente alla stam¬ 
pante. Potete così usare 
il calcolatore mentre la 
stampante lavora. 

L. 250.000* 


Barn 

34170 Gorizia - Via Anglolina, 23 
Telefono 0481 • 30909 

VENDITA PER 
CORRISPONDENZA 


PER APPLE 


Drive 5” con doppio 
controller 

L. 770.000 

Drive aggiuntivo 

L. 680.000 

Interfaccia stampante 


St. Centronics 

L. 80,000 

Interfaccia stampante 
Centronics per Epson 
con grafica 

L 130.000 

Come sopra per 
Centronics 739 

L 150.000 

Espansione 16K 
Language Card 

L. 99.000 

Espansione di memoria 
Maxiram 16K 

L 150.000 

Interfaccia seriale 
bidirezionale RS232C 

L 160.000 

Stampante Oki 80 
(parallela) 

L. 720.000 


♦ N.B. Tutti i prezzi sono comprensivi 
di IVA e sp>es€ di spedizione. 
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ON 27. GOTO 188, 288. 388, 488. 
580, 608, 788, 888 


ove i numeri 100, 300, 500, eccetera 
corrispondono a ipotetici numeri di li¬ 
nea cui il programma deve saltare, 
sulla base del valore di Z%. 

Incidentalmente il loop delle linee 
32-34 può essere sostituito in qualche 
Basic dalla funzione INSTR( ). Nella 
conversione da un programma del ge¬ 
nere all’Apple Basic l’istruzione 
INSTR( ) equivalente alle linee 32-34 
di cui sopra, sarebbe Z% = 
INSTR(ZZ$,Z$), senza necessità di 
loop. 

Il lettore attento ha forse notato una 
somiglianza fra le due subroutine pre¬ 
sentate sopra. Le linee 14-17 del pri¬ 
mo esempio sono identiche alle linee 
31 -34 del secondo esemplo. L’ho fatto 
per mostrare che due funzioni appa¬ 
rentemente diverse neH’amblto di un 
programma potrebbero condividere 
porzioni comuni. La lunghezza del 
programma può essere considerevol¬ 
mente ridotta se il programmatore ap¬ 
profitta di queste analogie, incorpo¬ 
randole in un’unica subroutine e cer¬ 
cando, dove è possibile, di usare va¬ 
riabili in comune. Se si usano le linee 
che seguono: 


4JI ZX = 8 : FOR ] = 1 TO LEN(22$) 
: IF MIW'ZZJ.I.l) = 2% THET^ 

IV. = ] 

41 NEKT I : RETLIRr>l 


si cambi la linea 14 nel primo esempio 
in Gosub 40, eliminando le linee 15- 
17; e si cambi la linea 31 nel secondo 
esemplo in Gosub 40, eliminando le 
linee 32-34. Si sarà ridotta la lunghez¬ 
za del programma di circa 50 byte. 

Una buona parte del risparmio (20 
byte) è venuta dall'uso di una linea di 
istruzione multipla (linea 40) nella 
quale diverse Istruzioni condividono lo 
stesso numero di linea, ognuna sepa¬ 
rata dall’altra da un segno di due pun¬ 
ti. Certi Basic non lo permettono; altri 


^ 1983 by Incider e Applicando 


usano come separatore un carattere 
diverso (come una barra inclinata a 
rovescio). Per quanto una linea del 
genere sia più difficile da leggere essa 
aumenta l’efficienza del programma. 
Si ricordi che ogni linea del program¬ 
ma richiede, a prescindere dall’effetti¬ 
vo numero di linea usato, cinque byte 
di overhead. 

Conclusione 

In questo articolo ho trattato del mo¬ 
do in cui le variabili vengono nominate 
e usate, e delle limitazioni nella deno¬ 
minazione delle variabili e nell’asse¬ 
gnazione a esse di valori. Negli esem¬ 
pi appaiono diverse funzioni di stringa 
senza spiegazione particolareggiata, 
che mostrano qualcuna delle opera¬ 
zioni più avanzate che il lettore po¬ 
trebbe tentare. Naturalmente l’unico 
modo autentico per comprendere 
questi concetti è quello di sperimen¬ 
tarli di persona. 

Ovviamente chi ha letto tutto l’arti¬ 
colo dev’essere interessato all’Impie¬ 
go del Basic come strumento. Il passo 
successivo (pratica, pratica, pratica) 
tocca a lui. 

Un altro aspetto delle variabili impli¬ 
ca l’uso di matrici. Le matrici permet¬ 
tono la semplificazione di molte comu¬ 
ni operazioni di programma, e sono 
spesso utili. Qualsiasi tipo di variabile 
(stringa, intera o reale) può essere 
usato come matrice, e ai nomi scelti 
per le variabili matrice (variabili con 
indice) si applicano le stesse regole 
illustrate sopra per le variabili. La sola 
differenza è che le variabili matrice 
sono dimensionate e sono seguite da 
un Indice (fra parentesi). Il prossimo 
articolo di questa serie sarà dedicato 
principalmente all’uso delle matrici 
nelle applicazioni di programma. 

1. Continua 
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IN COLLABORAZIONE 











Programma 
SAN FRANCISCO 



27 ottobre 

MILANO/SAN FRANCISCO 
Partenza con volo Alitalìa alle 
ore 13.30. Arrivo a SAN FRANCI¬ 
SCO alle ore 22.44. Trasferimen¬ 
to in albergo. Pernottamento. 

Dal 27 ottobre al 1 novembre 
SAN FRANCISCO 
Prime colazioni e pernottamenti 
in albergo. Una giornata sarà de¬ 
dicata cnrescursione<p Cupertino 
in autopullman privato. 

2-3 novembre 

SAN FRANCISCO/MILANO 
Prima colazione in albergo. Tra¬ 
sferimento aeroporto. Partenza 
alle ore 09.00. Cena e pernotta¬ 
mento a bordo. Arrivo alle ore 
10.05 a MILANO MALPENSA. 


Quota di partecipazione per per¬ 
sona Lire 1.770.000. 

Peri titolari di Applicarci (basta 
abbonarsi ad Applicando) 

Lire 1.740.000 

La quota comprende: • viaggio 
aereo in classe economica MILA- 
NO/SAN FRANCISCO/MILANO 
• sistemazione in albergo di la 
cat. con trattamento di pernotta¬ 
mento e prima colazione • trasfe¬ 
rimenti aeroportuali • escursione 
a Cupertino • assicurazione 'Mn- 
terassistance" e bagaglio • la 
franchigia bagaglio e le tasse di 
soagiorno e il facchinaggio nel- 
Talbergo di un collo per persona 
e borsa da viaggio Mixer Viaggi. 
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Anche le elezioni hanno contribuito a 
..or diffondere i computer: su tutti gli 

schermi televisivi italiani i risultati 
^ li ha forniti un personal. In Sicilia 

per esempio... 


Quanti voti 
per Appiè 


L a Rete 1 e la Rete 2 si sono spartite 
i personal computer Ibm e Olivetti, 
ma sui canali televisivi privati il vero 
trionfo elettorale è stato per Apple. 
Per seguire lo spoglio dei voti la mag¬ 
gior parte delle stazioni ha infatti in¬ 
stallato un Apple //Bis, il computer mo¬ 
dificato per usi TV. Ecco per esempio 
lo studio allestito da Antenna Sicilia in 
collaborazione con la SI.EL. Informa¬ 
tica di Catania, per la trasmissione- 
monstre (23 ore non-stop). In pratica 



sono stati collegati fra loro, via cavo, 
un Apple //Bis, un Apple //e e un Apple 
Il Europlus, ottenendo tre posti di la¬ 
voro interattivi per immissione conti¬ 
nua dei dati. I tempi di accesso al di¬ 
sco sono stati eliminati grazie a una 
scheda di espansione RAM da 128K. 
mentre il software è stato studiato in 
modo da consentire la modifica delle 
pagine video in diretta, senza mostra¬ 
re ai telespettatori menù, prompt o 
cursori lampeggianti. 
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Posizionare dove si vuole sullo schermo le figure di una tavola? 
Ingrandirle, ruotarle, cambiar colore? Aggiungere figure 
di un’altra tavola? Con questo programma diventa 

facilissimo... 


Per ripescare 
le figure 



C on il programma Figure {Appli¬ 
cando 1, pag. 58) abbiamo co¬ 
struito tavole di figure che solo i lettori 
più smaliziati saranno poi riusciti a ti¬ 
rar di nuovo fuori dal dischetto. Per 
tutti gli altri, e comunque per chi non 
vuol far fatica inutile, ecco un pro¬ 
grammino che assolve proprio questo 
compito e permette di costruire sullo 
schermo l’immagine che si vuole ag¬ 
giungendo figure prese via via da ta¬ 
vole che avremo costruito in prece¬ 
denza. Il disegno dei componenti elet¬ 
tronici qui a destra ne è un esempio. 

Il listato che proponiamo deve tro¬ 
vare, sullo stesso dischetto, anche il 
listatino TESTTB in linguaggio mac- 


3 REM ««««««<*><«««»»»«<««»«*« 

4 REM * CARICATAùOLEDlFI BURE * 

6 REM » (C) 1983 APPLICANDO * 

7 REM * E INCIDER » 

8 REM ««««««««««««««««««Hi 

9 REM » PRIftt DEL RIH NON 
DIMENTICARE I POKE 
<183,1-104,64-10384,8) 

16 ONERR BOTO 1616 

15 AD = 32768 

26 PRINT CHI» 

<4);'BL0ADTESnB': BOSUB 1446: 
GOTO 1656 

30 HOME : INPUT ‘NOME DELLA 
TAVOLA DI FIGURE:*iSTW: IF 
LEN <STN$) = 0 THEN 1050 

46 INPUT 'DRIVE 1 0 2? *;DD 

50 D$ = CHI» <4): PRINT 

M*BLOAD*iSTN$|*,A*iAD|*,D*|DD 

60 HOME ; VTAB 21: INPUT 'FIGURA 
0: ’tSW: POKE 7,Siti 

70 POKE 232,AD - ( INT <AD / 

256) * 256): POKE 233, INT (AD 
/ 256) 

86 POKE - 16304,6: POKE - 


16297,0 

96 VS = 1:BS = 6 

106 INPUT * COOROMTA X: ’jXX: 

INPUT * COORDllWTA Y: 'ìYY 
120 HC0L0R= H: R0T= R: SCALE= S 
130 DRAU SW AT )0(,YY: HOME : 
VTAB 21: INPUT * VUOI UN' 

ALTRA FIGURA? (S/N):*;!»»: IF 
LEN (QU$) = 0 THEN 130 
140 IF ASC (QU$) < > 83 THEN 
HOME : VTAB 21: BOSUB 1586: 
GOTO 1650 
150 GOTO 68 

1040 VTAB 21: BOSUB 1588 
1050 POKE - 16303,0: POKE - 
16298,0: HOME : VTAB 1: 

INVERSE : PRINT * 

APPLlDVfDO*: NORlttL : PRINT : 

PRINT : PRINT * . - - 

MENU.■: PRINT 

: PRINT 

1660 SG = 0:FL = 8:20 = 6 
1070 SCALE= S: HCOLOR= H: R0T= R 
1698 PRINT •(8)C(WCELLARE LO 
SCHERHO--RICOMINCIARE* 


1100 PRINT '(DCARICARE UW 
TAVOLA DI FIGURE* 

1110 PRINT ‘<2)SCE6L1ERE LN 
COLORE* 

1120 PRINT *<3)SCEBLIERE UNA 
SCALA D'INGRlVlDIMENTO* 

1130 PRINT *<4)SCEBL1ERE UN 
COEFF. 01 ROTAZIONE* 

1140 PRINT *<5)SCEGLIERE UN 
COLORE DI SFONDO* 

1170 PRINT *(6)VEDERE LO 
SCHERMO* 

1180 PRINT : PRINT : PRINT 
*»»»<BAni (ESC) PER 
FINIRE)***': PRINT 
1190 PRINT : PRINT : FLASH : 
HTAB 12: PRINT '(SCEGLI 8-6): 
*;: NORMAL : GET A$: PRINT 
CHRi (13) 

1200 REM 

1218 IF ASC (A$) = 27 THEN 
TEXT : HOME : END 
1220 IF LEN (A0) = 6 THEN 1198 
1230 IF m <A$) < 0 OR VAL 
(A0) > 9 THEN 1190 
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china che pubblichiamo in queste 
stesse pagine, e inoltre, prima del 
RUN, deve trovare le locazioni di me¬ 
moria già predisposte con un POKE 
103,1 :POKE 104,64: POKE 16384,0. 

Per digitare il listato in linguaggio 
macchina ricordiamo che occorre bat¬ 
tere CALL-151 e poi 800: dopodiché 

10 si potrà digitare. Finita la battitura, e 
ancora con l’asterisco sullo schermo 
che segnala il linguaggio macchina, 
bisognerà battere: 

BSAVE TESTTB,A2048,L140 

11 dischetto girerà, dopodiché si potrà 
digitare FP per tornare in Basic. 

Appena il programma gira (sempre 


che si siano fatti i poke), sullo schermo 
compare la scritta: «Se hai sullo 
schermo un’immagine Hi-Res che 
vuoi salvare batti <SPAZIO> ora. Al¬ 
trimenti batti qualunque altro tasto>». 
La barra dello spazio evita di cancella¬ 
re dallo schermo un’eventuale imma¬ 
gine alla quale si desideri aggiungere 
qualche figura. 

Poi si arriva al menù, che consente 
di (0) Cancellare lo schermo e rico¬ 
minciare; (1) Caricare una tavola di 
figure; (2) Scegliere un colore; (3) 
Scegliere una scala di ingrandimento; 
(4) Scegliere un coefficiente di rota¬ 
zione; (5)Scegliere un colore di sfon¬ 
do; (6) Vedere lo schermo. Per uscire 
dal programma è invece necessario 


6888- A8 89 87 CA E8 88 F8 
8888- 84 C8 4C 84 88 98 85 FB 
8818- A9 88 85 FA A5 FD 85 86 
6818- A2 88 A8 88 28 11 F4 A4' 
8828- FE A2 88 81 26 81 FA 88 
8828- 18 E6 FA D8 82 E6 F8 C8 
8838- FF F8 84 C4 FF 88 EC C6 
8838- 86 A5 86 C9 FF F8 84 C5 
8848- FC 88 D5 68 A8 89 A6 87 
6848- CA E8 88 F8 84 C8 4C 48 
8858- 88 98 85 FB A9 88 85 FA 
8858- A5 FD 85 66 A2 88 A8 88 
8868- 28 11 F4 A4 FE A2 88 Al 
8868- FA 51 26 91 26 88 18 E6 
8878- FA D8 82 E6 FB C8 FF F8 
6878- 84 C4 FF 88 C6 86 AS 
8888- 86 C9 FF F8 84 C5 FC 88 
8888- D3 68 88 88 


Il listato In linguaggio macchina 
TESTTB. 


battere il tasto <ESC>. 

Quanto alle tavole, possono essere 
anche nell’altro drive. Non è possibile 
però vedere il catalogo, e l’eventuale 
richiesta di una tavola non presente 
sul dischetto provoca la fuoriuscita dal 
programma. 

Il disegno ottenuto sullo schermo, 
una volta finito e usciti dal program¬ 
ma, potrà essere salvato con: 

BSAVE DISEGNO, A$2000,L$2000 



1248 IF A$ = 'B' THEN 1338 
1258 (IN m <A$) GOTO 
38,1278,1298,1318,1368,1488 
1268 GOTO 1858 
1278 HOME : VTAB 1; INPUT 
•COLORE? <1-7):';H: IF H > 7 
OR H < 8 THEN 1278 
1288 GOTO 1858 
1298 HOME : VTAB 1: INPUT 
■SCALA? (1-255):’;S: IF S > 

255 OR S < 1 THEN 1298 
1388 GOTO 1858 
1318 HOME : VTAB 1: INPUT 
•ROTAZIONE? (1-255):■,■R: IF R 
> 255 OR S < 1 THEN 1318 
1328 GOTO 1858 

1338 INPUT ■SICURO DI CIWCELLARE 
LO SCHERMO’’ (S/N);^;flU$: IF 
LEN (QU$) 8 THEN 1338 

1348 IF ASC (0U$) < > 83 THEN 
1858 

1358 HGR : GOTO 1858 
1368 PRINT •SICURO DI VOLERE UN 
COLORE DI SFONDO?^: INPUT 
■CIO' D^CELLEIW' OGNI FIGURA! 


(S/N):^iQU8: IF LEN (QW$) = 8 .. 
THEN 1368 

1378 IF ASC (QU$) < > 83 THEN 
1858 

1388 HOME : VTAB 1: INPUT 
•COLORE DI SFONDO (l-7):^iBC: 

IF BC ) 7 OR BC < 8 THEN 1388 
1398 POKE - 16384,8: POKE - 
16297,8: HCOLOR= BC: HPLOT 
8,8: CALL 62454: VTAB 21: 

GOSUB 1588; GOTO 1858 
1488 POKE - 16384,8: POKE - 
16297,8: VTAB 21: GOSUB 1588: 
GOTO 1858 

1438 CALL 62458; RETURN 
1448 POKE 2296,1: POKE 2297,8: 

POKE 2298,4: POKE 2299,8: POKE 
2388,4: POKE 2381,8 
1458 SCALE= 1:S = 1: ROT= 64;R = 
64: HCOLOR= 3:H = 3: POKE - 
16381,8 

1468 POKE - 16383,8: POKE - 
16298,8: HOME : Iff/ERSE : 

PRINT ■SE Itti SULLO SCHERMO 
UN'IftttGlNE HI-RES^: PRINT 


•CHE VUOI SALVARE BATTI 
(SIttZIO) ORA. ■; PRINT 
•ALTRIMENTI BATTI QUALUNQUE 
ALTRO TASTO •; NORMAL 
1478 PK = PEEK ( - 16384): IF PK 

> 127 THEN POKE -16368,8: 
GOTO 1498 

1488 GOTO 1478 

1498 IF PK = 168 THEN 1518 

1588 HGR 

1518 RETURN 

1588 PRINT : PRINT • 

(BATTI QUALSIASI TASTO):^ 

1598 PK = PEEK ( - 16384): IF PK 

> 127 THEN POKE - 16368,8: 
RETURN 

1688 GOTO 1598 

1618 PRINT CHR8 (7); POKE 216,8 
1628 PP= PEEK (222); IF PP = 

254 TH0( RÉSUMÉ 
1638 POKE - 16383,8: POKE - 
16298 0 

1648 PRÌnT •il CODICE D' ERRORE 
E' IL i:^PP: GOSUB 1588: CALL 
54915: GOTO 1858 
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g\o 95!^ Una torretta laser, attaccata da 
^"asteroidi, astronavi e alieni. Ma 
a difenderla ci sei tu... 


di 


A colpi 
laser 


C Jè chi pensa che non si possa 
usare l’Applesoft per scrivere un 
gioco d'azione rapida ad alta risolu¬ 
zione. Per chi crede che un gioco di 
sparatorie deve essere necessaria¬ 
mente in linguaggio macchina, ecco 
un cannone laser per ricredersi: per 
quanto il solo codice macchina impie¬ 
gato nel programma sia quello usato 
per le tavole delle figure e per gli effetti 
sonori, è praticamente impossibile su¬ 


; PRIN'^ 'ari'" 

,,3 REH 

REM = LA2ER - BLASTER = 

2(1 REM= D1:RIJDY A. GUY 

35 REH = (i) COPYRIGHT i9E'5 = 
-50 REM = MICRO-SPARC INC. = 

Al REM = E AP'^LICAf'IDO = 

50 REM 

55 GOSiJB 445 ! GOSUB 370 
60 TEK7 : HOME : IF PEEK (233.) 

< ./ 32 THEN PPINT CHRI 
(4)"BliK; LB.O" 

65 POKE 232,0! POKE 233,32: VTAB 
12 

70 INPUT 'SCEGLI IL LIVELLO DI 
ABILITA'(1-3:ì “iL: IF L < I OR 
L > 3 THEN 60 
75 IL = L 

80 REM (<< INI2IAL122A LO 
SCHERffu Hl-RES >>> 

65 H6R2 : R0T= 8: SCALE= 1: 

HC0l 0R= 3: DRfU^ 1 AT 14B.96 
98 DRAW 6 AT 5,5: DRAW 7 AT 
33,5: DRAN 8 AT 12,15: DRAW 9 
AT 40,15: ORAU 18 AT 17,32: 
li AT 45,32 

95 FOR I = 1 TO 188: HC0L0R= 

RND (1) *7 + 1: HPLOT RND 
(1) * 280, RND (1) * 192: NEX^ 

: REM STÉLLE 

180 REM INI2IALI22A ASTRCflYUl 

ALIENE 


perare i 1.500 punti al livello di abilità 
uno. 

Il gioco può essere caricato sia da 
dischetto sia da nastro, e richiede 
l’Applesoft nella ROM, le paddle e al¬ 
meno 32K di RAM. Funziona benissi¬ 
mo anche su Apple //e, ma riserverà 
qualche disappunto a chi invece delle 
paddle desiderasse usare il Joystick: 
occorrono proprio le paddle. Scopo 
del gioco è quello di distruggere tutti 


185 FOR 1 = 1 TO 4: READ 
XI(I),YI(1),R0(I)!X = INT ( 
RND (!) » 18 ♦ 1) 

118 IF X 2 < > INT (X / 2> 
THEN 138 

115 IFX/2= INT (X ./ 2) THEN 
SHd) = 2 

120 X = INT ( RND (1) » 10 ♦ 1): 

IF X = 7 THEN SHd) = 3 
125 IF X = 18 THEN SHd) = 4 
138 NEX.T : HC0L0R= 3 
135 FOR I = 1 TO 4: IF SHd) > 6 
THEN ROT= ROd): DRAW SH(I) 

AT XI(I),YI(I) ! NEìCT 
145 REM ;<( LEGGI LA PADDLE E 
ASSEGf*) LA POSIZIONE AL LASER 
}» 

158 P = PDL (0): IF L > 5 THEN L 
= 5 

155 LGUN = INT ((P + 45) / 75): 

IF LGUN = 8 THEN LGUN = 1 
160 IF Y ) 0 THEN HCOLOR= 8: 
ROT= R: DRAW 5 AT X.Y: HCOLOR= 
3 

165 ON LGUN GOSUB 
195,280,205,210 
170 REM <« VERIFICA IL 
PULS(^TE(0) »> 

175 IF PEEK ( - 16287) > 127 
THEN GOSUB 215 

188 FOR 1 = 1 TO 4: IF SHd) > ! 
THEN ROT= ROd): HCOLOR= 0: 


gli asteroidi e le astronavi aliene che 
sono, per coincidenza, in rotta di colli¬ 
sione con la nostra torretta laser. Ci 
sono tre livelli di abilità fra cui sceglie¬ 
re, e il livello uno è, per così dire, il più 
facile. La posizione della torretta è co¬ 
mandata dalla paddle (0) e si fa fuoco 
premendo il pulsante (0). Ogni volta 
che lo schermo viene sbarazzato di 
alieni e asteroidi l’attacco si rinnova a 
velocità aumentata. 


DRAW SHd) AT XI(l),Y]d): 
HCOLOR= 3: ON I GOSUB 
288,290,388,318 

185 NEXT : FOR 1 = 1 TO 4!SH = 

SH + SHd): NEXT : IF SH = 0 
THEN RESTORE :L = L + .15: 
HCOLOR= 0! ROT= R: DfóW 5 AT 
X,Y: HCOLOR= 3: GOTO 105 
190 SH = 0! GOTO 158 
195 ROT= 48: DRAW 5 AT 148,87:X 
= 148:Y = 8?!R = 48: RETURN 
280 ROT= 0: DRAIW 5 AT 149,95:X = 
149!Y = 95!R = 8: RETURN 
205 ROT= 16: DRAW 5 AT 140,185!X 
= 148!Y = 185!R = 16: RETURN 
210 ROT= 32: DRAW 5 AT 131,9Ó!X 
= 131:Y = 96!R = 32: RETURN 
215 REM «< SPARA IL LASER )» 
228 ON LGUN GOSUB 
230,248,250,260 
225 RETURN 

230 IF SH(LGUN) < 2 THEN HPLOT 
140,82 TO XI(LGUN),YI(LGUN)! 
GOSUB 325: HCOLOR= 8: HPLOT 
140,82 TO XHLGUN),YI(LGUN): 
HCOLOR= 3: RETURN 
235 HX = 140!HY = 82: GOSUB 270: 
RETURN 

240 IF SH(LGUN) < 2 THEN HPLOT 
153,95 TO XI(LGUN),YI(LGUN): 
GOSUB 325: HCOLOR= 0: HPLOT 
153,95 TO XI(LGUN),Y1(LGUN): 
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A chi ha logorato commutatore e 
pulsante della PDL (0) le seguenti mo¬ 
difiche di linea permetteranno di usare 
paddle e pulsante (1): 

150 P=PDL(1):IF L>5 THEN L=5 
175 IF PEEK (-16286)>127 THEN 
GOSUB 215 

Come digitare 
il programma 

La tavola delle figure richiesta per 
questo gioco è in locazione $2000 con 
una lunghezza di $22E. Per introdurre 
la tavola si batte CALL-151 e si preme 
RETURN. Così si va in Monitor, con 
un «*'> al posto del simbolo di attesa 
«]» dell'Applesoft. Adesso si intro¬ 
duca: 

*2000:0B 00 18 00 67 00 A8 00 
<RETURN> 

Quando si è premuto RETURN è 
stata introdotta nella memoria dell'Ap¬ 
ple la prima linea della tavola delle 
figure partendo da $2000. Introducen¬ 
do le linee di codice si badi che non 


HC0L0R= 3: RETURH 
245 HX = 153:HY = 95: GOSUB 27h 
RETURN 

250 IF SH<LDUf^) < 2 THEN HPLOT 
140,109 TO XKLGUNl.YKLGUN): 
GOSUB 325: HC0L0R= 0: HPLOT 
140,109 TO X1(LGUN),YI(LGUN): 
HCOLOR= 3: RETURN 
255 HX = 140:HY = 109: GOSUB 270: 
RETURN 

260 IF SH(LGUN) < 2 THEN HPLOT 
127,96 TO X1(LGUN),Y1<LGUN): 
GOSUB 325: HC0L0R= 0: HPLOT 
127,96 TO XI(LGUN),Yh'LGUN): 
HCOLOR= 3: RETURN 
265 KX = 127:HY = 96: GOSUB 270: 
RETURN 

270 HPLOT HX,HY TO 
XI<LBUN),YI(LGUN): R0T= 
RO(LGUN): HC0L0R= 0: DRAW 
SHaGUN) AT Xl(LGl]N),Yl(LGLrf): 
SCALE= 2: HC0L0R= 3: ORAU 
SH(LGl]N) AT X](LGLI4),YI(LGUN) 
275 GOSUB 325: HC0L0R= 0: HPLOT 
HX,Hr TO XHLGUN),Yl(LGUr4): 
DRAU SH(LGLIN) AT 
XI<LGUN),YI(LGUN):SC = SC 4 
(SH(LGUN) » IL « 5):SH(LGUN) = 
0: SCALE= 1: RETURN 
280 YKI) = YKl) + (5 » L): DRAU 
SH<I) AT XI(1),YH1): IF YKI) 
= ) 87 THEN POP : GOTO 340 


■ .'-v, 'S'. 


siano introdotti spazi prima o dopo i 
due punti. È molto importante anche 
introdurre uno spazio dopo ogni cop¬ 
pia di numeri in esadecimale. altri¬ 
menti la tavola delle figure non funzio¬ 
nerà a dovere. 

Una volta completata l’introduzione 
della tavola essa deve essere salvata 
su dischetto o su nastro. Se si usa il 
nastro si batta 2000.222DW, si avvi! il 
registratore in posizione di registra¬ 
zione e si prema RETURN. (NOTA; 
per ricaricare la tavola delle figure si 
usi 2000.222DR). Quando il cursore 
torna sullo schermo la tavola è salva¬ 
ta. Se si usa il dischetto si batta BSA- 
VE LB.0,A$2000,L$22E e si prema 
RETURN. Per tornare in BASIC si bat¬ 
ta una delle seguenti istruzioni: 
CONTROL-C<RETURN>: se si usa 


» f * 


il nastro; 

9DBFG<RETURN>: se si usa il di¬ 
schetto a 48K. 

Una volta tornati in BASIC si intro¬ 
duca il resto del listato del programma 
e lo si salvi su dischetto o su nastro. 

Il punteggio 

La segnatura.dei punti e la velocità 
degli attaccanti sono basate sul livello 
iniziale ecelto dal giocatore. Di mano 
in rnarto che il giocatore qlimina gli 
attaccanti dallo schermo il livello di 
abilità (L) al quale.sì gioca viene au¬ 
mentato di 0,15. Poiché la variabile L 
è usata per determinare il numero di 
pofiizioni dì cui si sposteranno i nuovi 
attaccanti, la partita diventa progres¬ 
sivamente sempre più difficile. La co¬ 
stante ascesa del livello di abilità non 
influisce tuttavia sul conseguimento 
del punti. Il valore massimo che L può 
raggiungere è 5. Se si vuole aumenta¬ 
re o diminuire la difficoltà del gioco 
basta cambiare l’incremento del livel¬ 
lo di abilità nella linea 185. Il punteggio 
per ogni nemico abbattuto, sulla base 
del livello di abilità Iniziale, è il se¬ 
guente: 


285 RETURN 

290 XHl) = XHI) - (7 * L): DRAW 
SHd.) AT XHl),YI(n: IF XHI) 

< = 149 THEN POP : GOTO 348 
295 RETURN 

300 YHI) = YHl) - (5 * L): DRAW 
SH(1) AT Xl(l).YHI): IF YHI) 

< = 105 THEN POP : GOTO 340 ’ 
305 RETURf’i 

310 XHI) = XHI) 4 <7 » L): DRAU 
SH(1) AT XHI),YHI): IF XHI) 
:> = 131 THEN POP : GOTO 346 
315 RETURt^ 

320 REM suolo DEL LASER 
325 FOR I = 12 TO 10 STEP - 1: 
POKE 776,7: POKE 777,1: CALL 
778: NEXT : RETURfI 
338 REM SUONO DELLA DISTRUZIONE 
DELLA TORREHA 

335 POKE - 16336, PEEK ( - 
16336): POKE - 16336, PEEK ( 

- 16336): POKE - 16336, PEEK 
( - 16336): RETURN 
340 FOR 1 = I TO 10: S(>^LE= 1: 
DRAU 1 AT 148,96: GOSUB 335: 
NE.XT 

345 TEXT : HOME : IF SC > KS 
THEN VTAB 7: PRINT ‘NUOVO 
PUfiTEGGIO MASSIMO : FLASH 

: PRINT SC: NORMAL :HS = SC: 
GOTO 355 

350 VTAB 7: PRINT ‘PUNTEGGIO 


MASSIMO :‘HS: ■TTAB 9: PRlflT 
‘TUO PUNTEGGIO :'SC 
355 '-ZTAB 20: PRINT ‘PROJ! )¥4C0 Rh 
?‘ì: GET A$: 1 F A$ = ‘N’ THEN 
END 

360 SC = 0:R = 0:X = 0:Y = 0:1L = 
8: RESTORE : GOTO 60 
365 MTA 

148.12.32,260,96,48,140.178,0,1 

6,96,16 

378 TEXT : HOME : REM <« TITOLO 

»> 

388 VTAB 10:A: = ‘L A 2 E R - B 
L A S T E R‘: FLASH : GOSUB 
435: NORmL 

385 VTAB 12:A< = ‘DI: RUDY A. 

GUY*: GOSUB 435 
390 VTAB 14:A$ = ‘(C) 1983 
MICRO-SPARC E APPLIC#iDO’: 

GOSUB 435 

395 VTAB 23: PRIffT ‘ISRUZIONl 
(S/N)‘:: GET A$: PRINT : IF A$ 
= ‘N‘ THEN RETIW 
400 HOME :AI = ‘L A Z E R - B L 
A S T E R’: INVERSE : GOSUB 
435: N0W1AL : PRINT 
485 PRINT ‘ LO SCOPO DEL 
'LAZER BLASTER' E' D]":PR1NT" 
COLPIRE IL MAGGIOR NLMERO DI 
ALIENI':PRIfTT‘ E ASTEROIDI. 
PER GIRARE E SPARARE':PRINT‘ 

Segue a pag. 32 
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The Personal Computer 



RZI€ND€ 


PfìOF€SSiONISTI 

PROG€niSTI 

SCUOL€ 

HOM€ € HORBV 

€... 

Più linguaggi di program¬ 
mazione (Pascal, Basic e- 
steso Applesoft, Integer 
basic. Monitor e fìssem- 
bler) 

— Memoria RRM fino a 64 
Kbytes 

— Grafici a colori od alto 
risoluzione 

— Roppv-Disks e due si¬ 
stemi operativi su disco, 
come nei grandi sistemi 

— Tavoletta grafico inte¬ 
rattiva 

— Interfacce intelligenti di 
tipo parallelo, seriale e 
per comunicazioni 

Distribuzione per ritolio 



L mFotHuncA / 

film 

F.B.M. Via Flaminio, 395 
Roma - tei. 06 399279 / 3960152 

solo di 

esposizione permonente 


Attaccante 

Liv. 1 

Liv. 2 

Liv. 3 

Razzo grande 

5 

10 

15 

Razzo piccolo 

10 

20 

30 

Asteroide 

15 

30 

45 


Per ottenere un punteggio elevato 
sarà utile sapere come viene letta la 
padelle (0). Dato che una paddle pro¬ 
duce, quando viene ruotata, una lettu¬ 
ra compresa fra 0 e 255 è stato neces¬ 



sario suddividere quest’arco in quat¬ 
tro parti uguali. Questo avviene nella 
linea 155 del programma. Una volta 
che è stato stabilito, leggendo la 
paddle (0), il valore di P, esso viene 
diviso per 63,75, un quarto di 255, per 
ottenere la locazione della torretta la¬ 
ser (LGUN). 



Torretta Laser (LGUN) 


Così se il valore della paddle (0) è 
63,75 0 meno la torretta laser sarà 
rivolta verso la sommità dello scher¬ 
mo. Se invece il valore della paddle 


Segue da pag 31 

!L LASER SI LÀ PHDDL£(e) ” 
Hlé mf{! ; PRIITT “ CI SOf^C 3 
LI'^ELLl DI GIOCO PRA 
CUr:PRM^ SCEGLIERE (IL 
lIUELLO I E*' IL PIU^SPRINT" 
FACI LE).CW L-'AlWErCrO DEL 
TUO^rPRlNT- PUf^TEGGIO 
AlflEfflA LA L.‘EL0C!TA ■* 

412 PRINT'* DELLE AS’P?4V..'! 

ALIENE. IL TUO-jPRIÌff'* 
PUrnEGGIO E*' QUESTO;" 

415 PRIffT ; FRirr “ATTACCAfTTE 
LIM.l LIM.2 L1U.3 


--ASTROr^VE GRANDE 

18 20 

420 PRINT "ASTROW^E PICCOLA 
15 30 45* 

422 PRINT 'ASTEROIDE 
20 40 60* 

425 yiAB 23: PRINT * QiJALUNQiJE 
TASTO PER COHlNCIARE.'rX = 

PEEK ( - 16384): IF X > 12? 
THEl^ POKE - 163*8,0: RETURN 
430 GOTO 425 

435 HTAB 26 - LEN <AI) / 2: 

.. PRINT A*: RETURN 

440 REM «< ROUTINE SONORA (FP) 

»;■ 

445 POKE 776,255: POKE 777,255: 
POKE 778,173: POKE 779,48: 

POKE 780,192: POKE 781,13*: 
POKE 782,268: POKE 783,5: POKE 
784,206: POKE 785,9: POKE 
786,3: POKE 787,246 
450 POKE 788,9: POKE 789,202: 
POKE 790.268: POKE 791,245: 
POKE 792.174: POKE 793,8: POKE 
794.3: POKE 795,76: POKE 
796,10: POKE 797,3: POKE 
798,96: RETUI»! 


Funzione 
per funzione 

80-90 Inizializza lo schermo ad 
alta risoluzione e disegna il 
nome, la torretta laser e le 
stelle. 

100-140 Inizializza la matrice SH e le 
locazioni d’avvio degli 
attaccanti. Le disegna sullo 
schermo. 

145-165 Legge la paddle (0) per 
determinare la locazione 
della torretta laser. Disegna 
la torretta nella locazione 
appropriata. 

170-190 Legge il pulsante (0). Se è 
stato premuto salta alla 
routine di sparo del laser. 

Se non è stato premuto 
sposta l’attaccante in altra 
locazione e verifica se ci sia 
collisione con la torretta 
laser (260-315). Se non c’è 
collisione legge 
nuovamente la paddle (0). 

215-265 Spara il laser. Se nessun 
bersaglio è colpito legge di 
nuovo la paddle. Se il colpo 
va a segno salta alla routine 
di punteggio. 

270-275 Incrementa il punteggio e 
modifica la matrice SH. 

320-325 Routine sonora del laser. 

330-340 Distruzione della torretta 
laser e corrispondente 
routine sonora. 

345-360 Verifica se ci sia un nuovo 
punteggio massimo alla fine 
del gioco e vede se il 
giocatore vuole ritentare. 

370-430 Pagina del titolo e istruzioni. 

440-450 Routine sonora Applesoft. 
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(0) è compreso fra 191,25 e 255, il 
punto in cui è ruotata completamente 
in senso orario, il cannone sarà rivolto 
verso la sinistra del giocatore. 

A chi non ha In simpatia i programmi 
a caricamento multiplo vorrei suggeri¬ 
re un metodo per far diventare il gioco 
a caricamento unico. Per prima cosa 
si provveda a una completa correzio¬ 
ne del programma e lo si faccia girare. 
Quando si è persuasi che tutto funzio¬ 
ni a dovere si esca dal Lazer Blaster 
con Control-C. Si listi la linea 60 e si 
faccia questa modifica: 

60 TEXT:HOME:POKE 232,0: 

POKE 233,32 

Adesso si introduca un CALL-151 e si 
prema RETURN. Così si dovrebbe 
andare in Apple Monitor. Da un rapido 


mn,222i} 
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sguardo alla pagina 141 del manuale 
di consultazione Applesoft si saprà 
che le locazioni $AF e $BO ci daranno 
la locazione della fine del programma 
BASIC. Per salvare il gioco come file 
unico si introduca: 

AF:2D 22 <RETURN> 

Così facendo si è teso un traboc¬ 
chetto all’Apple inducendolo a crede¬ 
re che $222D, la fine della tavola delle 
figure, sia la fine del programma. Si 
rientri in BASIC come^piegato sopra 
e si salvi il nuovo file come LAZER 
BLASTER (1 LOAD). A chi usa il na¬ 
stro basterà dare un comando SAVE, 
ma è bene usare un nastro nuovo, per 
precauzione, a evitare che qualcosa 
non vada nel modo giusto. Buona cac¬ 
cia agii alieni e agli asteroidi. 
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Vivere col 
computer, 

a Roma. 


VIA NOMENTANA265-267-269-271-273 
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per chi di computer sa tutto ed ha bisogno di assi¬ 
stenza specialistica, di software, di una stampante 
nuova, di libri, o anche solo di un pacco di carta... 
per chi non sa niente ma vorrebbe sapere, e capire; 
assistenza informativa, corsi di formazione, guida al¬ 
l’acquisto. consulenza... 

per chi ha un computer e per chi no; per un video 
a colori, i dischi, un modello nuovo, espansioni ed inte¬ 
grazioni di sistema... 







||cipplG computer 

il nuovo Apple, punto d’arrivo dèlia linea II, dopo Apple 
Il e Apple II plus. Ora con tastiera migliorata, tasti 
sensibili ed ergonomici, in versione italiana. Migliore 
visualizzazione, maiuscola e minuscola, sul video 
24 linee da 40 o 80 caratteri. Memoria espansa: 64 
Kbyte espandibili a 128, con 16 K di memoria ROM per 
l’uso contemporaneo di due linguaggi di programma. 


e presenterà, presto, 



Rivenditore Autorizzato 
SIGEEI s.r.l. 

Via Lorenzo Bonincontri 105-107 

telefono 5140792 

computershop 

Via Nomentana 265-273 

Tel (06) 84 50 078 
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Pochi minuti alla riunione del 
consiglio di amministrazione e la 
relazione annuale non è ancora pronta? 
Uno studio da preparare con testi, 
grafici e tabelle suddiviso in tanti 
capitoli? Ecco la soluzione. 

Finalmente 

Dossier 



La copertina e il menù principale. Volendo 
si può rendere il dossier accessibile solo 
a chi conosce una parola chiave riservata. 


Un modulo ancora bianco. È una specie di 
VisiCalc, con colonne definibili in larghezza 
singolarmente. Il menù mobile ricorda Lisa. 



3 La pagina delle regole di calcolo di un modulo: 
sono espresse in semplicissimo italiano. 
SUMR vuol dire somma per riga. 


4 Un modulo compilato. Il cursore si sposta 
come in VisiCalc. In alto a destra (5.155) il 
display del «calcolatore tascabile». 
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éoam 


S e ne era tanto sentito parlare e si 
sapeva del grosso colpo fatto dal¬ 
la Mondadori che se ne è assicurata 
l’esclusiva internazionale (e che lo ha 
già venduto in Francia e negli USA, 
dove non pochi giurano che avrà al¬ 
meno lo stesso successo di VisiCalc). 
Ma ad aver capito esattamente cosa 
fosse e come funzionasse erano an¬ 
cora in pochissimi, e ad averlo visto 
erano ancor meno. 

Una buona confezione, un manuale 
ben curato (e di 123 pagine) con riepi¬ 
logo staccabile, dischetti protetti con¬ 
tro la copiatura abusiva, due dischetti 
dimostrativi utilizzabili solo in lettura 
distribuiti ai rivenditori perché possa¬ 
no spiegarlo ai potenziali utenti: Etno- 
team (la software-house di Milano che 
l’ha Ideato) e Mondadori hanno lavo¬ 


rato bene. E non c’è dubbio che sa¬ 
ranno in molti a desiderare questo 
programma che, proprio come è acca- 
duco con VisiCalc, può bastare da so¬ 
lo a motivare l’acquisto di un Apple. 
Tantopiù che il prezzo, 790 mila lire 
Iva compresa, che può sembrar alto, è 
invece ragionevole se si confronta alle 
prestazioni e ai prezzi di altri pro¬ 
grammi. 

Un solo neo: il progetto Dossier è 
nato per Apple II, non per Apple //e. Di 
conseguenza non si avvale delle 
maggiori possibilità offerte per esem¬ 
pio dalla nuova tastiera. Inoltre pre¬ 
senta qualche fastidio per chi dispone 
dello schermo a 80 colonne invece 
delle normali 40. Per chi ha il vecchio 
Europlus 48K è invece indispensabile 
l'aggiunta delia Language card. 


A chi e a cosa serve 

L’idea generale è quella di prepara¬ 
re un dossier completo, con la sua 
copertina, il suo indice, i suoi capitoli 
(fino a 10). Ciascuno di questi ultimi 
sarà composto da un testo, una tabel¬ 
la di numeri e dati vari, ed eventual¬ 
mente anche un grafico. Ebbene, 
Dossier fa proprio questo: produce un 
documento completo che può essere 
ripercorso pagina per pagina sul vi¬ 
deo, aggiornato rapidamente, e, 
quando lo si desidera, stampato in po¬ 
chi minuti. I fogli che escono dalla 
stampante, inseriti in una cartellina di 
plastica 0 in un raccoglitore a fogli mo¬ 
bili, sono pronti per essere più che 
decorosamente presentati a qualsiasi 
consiglio di amministrazione. 



La pagina dei commenti. Ogni moduio, 
può avere un testo di accompagnamento 
stampabiie anche singoiarmente. 


6 L’indice dei dossier. Eienca tutti i 

moduii (o capitoli, fino a 10 per dischetto, 
un dischetto per ogni dossier). 



7 Un esempio di istogrammi: i dati sono 

desunti dalla tabella numerica del modulo 
al quale il grafico si riferisce. 


8 Un altro esempio di istogrammi 

ottenibili, su griglia orizzontale, con valori 
positivi e negativi. 


F 
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Tuttavia non è obbligatorio stampa¬ 
re l’intero dossier, se non se ne ha 
bisogno: si può scegliere di stampare 
anche un solo capitolo (che Dossier 
chiama Modulo), o una sola pagina. O 
la sola copertina, l'Indice, o semplice- 
mente l’etichetta da incollare sul di¬ 
schetto contenente il dossier. Se si 
sceglie di stampare una sola pagina o 
l’intero dossier, il documento viene 
automaticamente impaginato in for¬ 
mato Uni A4, le eventuali tabelle trop¬ 
po grandi vengono suddivise in due o 
più pagine, e da menù si può scegliere 
il carattere di stampa. 

Come funziona 

Per chi conosce già VIsiCalc la 
comprensione di Dossier è pratica¬ 


mente immediata: immaginiamo infat¬ 
ti un grande foglio elettronico con tan¬ 
te caselle, come in figura 2, che serva 
per esempio a costruire un quadro 
delle vendite come in figura 4. La diffe¬ 
renza con VIsiCalc che salta per prima 
all’occhio è che ciascuna casella non 
è definita come nel gioco della batta¬ 
glia navale per incrocio di lettere e 
numeri. Ma non è la sola: per esempio 
si possono allargare o restringere le 
colonne singole, indipendentemente 
dalla larghezza delle altre. Poi le rego¬ 
le di calcolo: non vanno inserite nelle 
singole caselle, ma in una pagina ap¬ 
posita (vedere figura 3), detta delie 
leggi, che possiamo immaginare alla 
sinistra della pagina che contiene la 
tabella con i dati. Ma guardando bene 
1^ figura 3 si noterà anche che le mo¬ 


dalità di calcolo vengono espresse 
semplicemente in italiano: per dire 
che vogliamo il totale delle vendite di 
tutto l’anno basterà scrivere: 
VENDITE (TOTALE) = SUMR 
(VENDITE (GEN.. DIC)) 
cioè basterà usare le parole che sono 
state scelte per indicare i contenuti di 
righe e colonne (o anche le loro abbre¬ 
viazioni), il che rispecchia esattamen¬ 
te il modo di pensare umano, ed è 
estremamente più pratico che nel VI- 
siCalc. L’operazione SUMR, usata 
nell’espressione precedente, vuol di¬ 
re somma per le righe, mentre per una 
somma per colonne sarebbe stata 
usata l’indicazione SUMC. Altre istru¬ 
zioni usate da Dossier sono PROGR e 
PROGC, che calcolano i totali pro¬ 
gressivi per riga o per colonna; VARR 



9 Un esempio di istogrammi affiancati 
per un’immediata visualizzazione 
delie differenze fra costi e ricavi. 



Quando neiia serie di dati sono presenti 
valori non numerici, Dossier stampa 
un punto interrogativo invece della barra. 



Come in figura 9, ma con una 
comparazione fra tre dati (Usa, Canada 
e Europa) invece che due soltanto. 



I 



Istogrammi su grìgiia verticale e orizzontale. 
Per ottenerla basta battere GRIGLIAV e 
GRIGLIAO. 
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e VARC che calcolano le variazioni 
percentuali per riga o per colonna, ol¬ 
tre a quelle aritmetiche (+ - * / %) 
sono MAX, MIN, MED, che permetto¬ 
no di ottenere rispettivamente il mas¬ 
simo, il minimo e la media di una serie 
di dati. 

Però Dossier riconosce anche il se¬ 
gno di duepunti (:), che ha un signifi¬ 
cato tutto particolare. Abbiamo detto 
che un dossier può essere composto 
da più moduli; ebbene, l’espressione: 
COSTI = CST: TOTALE 
(GEN.. DIC); 

significa che alla voce COSTI del mo¬ 
dulo che stiamo usando vogliamo che 
Dossier inserisca un dato prelevato 
da un altro modulo o capitolo, e più 
precisamente il totale da gennaio a 
dicembre del capitolo costi. 


I grafici 

In pratica dunque Dossier può es¬ 
sere paragonato a una sorta di Visi- 
Cale con raggiunta di un word- 
processor per la parte testi di com¬ 
mento, e di un programma capace di 
tracciare istogrammi e curve. Il tutto 
talmente bene integrato da far pensa¬ 
re in qualche momento di non trovarsi 
affatto alle prese con un Apple II ma 
con Lisa. 

Anche le istruzioni grafiche non pre¬ 
sentano particolari difficoltà e sono 
espresse praticamente in semplicissi¬ 
mo italiano. Per ottenere l'immagine 
di figura 7 basterà digitare: 

BARRE (USA(GEN.. DIC)); 
partendo da una tabella In cui USA- 
(GEN.. DIC) siano le vendite (per 


esempio) di un certo prodotto negli 
Stati Uniti. Analogamente per gli isto¬ 
grammi di figura 8 basterà l'istruzione: 
BARRE (DIFF(GEN.. DIC)); 
mentre l'immagine di figura 10 richie¬ 
derà un'istruzione del tipo: 

BARRE (USA..EUROPA 
(AGO..DIC)); 

Inoltre, se nella serie di dati da tra¬ 
sformare In istogrammi sono compre¬ 
si valori non numerici, al posto della 
barra comparirà un punto interrogati¬ 
vo (vedere figura 11). 

Infine le curve: per ottenerle basta 
usare al posto dell'espressione BAR¬ 
RE l’Indicazione LINEE. E, come mo¬ 
strano le figure 14, 15 e 16, linee e 
barre possono benissimo comparire 
nello stesso grafico, sovrapposte o 
anche affiancate. 



Rappresentazione grafica sotto forma 
^ di curva anziché di barra. Le istruzioni per 
curve e barre sono semplicissime. 



Barre e curve possono anche coesisterà 
affiancate neilo stesso grafico, o, come 
nelle figure che seguono, sovrapposte. 




^ ^ Ancora un esempio di barre e curve. In 
I questo caso il diagramma a linee spezzate 

I ^ ha qualche punto fuori dal quadro. 



Nel caso alcuni valori cadano fuori scala. 
Dossier li indica con apposite freccine 
segnalatrici: si può chiedere di scalarli. 
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•tUCT T0« »«««• (»-»> « 

•* “WItW."* 


Come illustrare le vostre fortune 
senza spendere una fortuna* 



Basta un solo grafico per esprimere istantaneamente dò che altrimenti 
si potrebbe dedurre solo dal lungo e tedioso esame di tabulati. 

Oggi, con il Plotter grafico Strobe 100 e il relativo Software 
potete CTeare disegni a colori di qualità eccezionale, direttamente con 
il vostro .elaboratore personale, a un costo molto più basso di altri 
sistemi. Il Plotter Strobe trasforma insiemi di dati in dinamiche 
visualizzazioni, con pochi e semplici comandi del vo.stro computer. 

Si riducono cosi a pochi minuti 
le ore di lavoro necessarie per produrre 
diagrammi su carta o su luddi 
trasparenti. 

Le inlbmiazioni presentate 
con istogrammi, curve, disegni, 
diagrammi cartesiani e circolari 
su fogli di 21.5x28 cm. rendono più 
chiare le vostre idee. 

E Strobe. con la precisione dei 
suoi 200 punti al cm, supera 
di parecchio la qualità di plotter che 
costano parecchi milioni di più. 


Inoltre, con i programmi Strobe potete memorizzare 
e mcxlifiaire i vostri grafici, scegliendo le attività desiderate da facili 
menu in italiano. 

E. se non basta, c‘siste una grande selezione di software 
compatibile con il plotter Strobe 100, come ad esempio il prestigioso 
VisiCalc^^’. 

Visitate oggi stesso il vostro rivenditore di fiducia Vi spiegherà 
il modo migliore per illustrare 
le vostre fortune. 


mwmasM 


■■ -mBsmrer 


SISTEMA GRAFICO STROBE 


Via Bovio. 5 
42100 Reggio Emiiu 
Tel. 0522/3264^ 

Tlx 530173 IRETRE 


Vedere per credere. 


‘VisiCalc^ è un marchio registrato della VisiCorp^ 






















Ecco alcuni semplici sistemi di protezione: se 
preferite che nessuno possa accedere ai vostri 
dati quando lasciate un attimo la tastiera... 


Un dischetto 
a combinazione 


V i occorre un sistema di protezio¬ 
ne? Qualcosa che impedisca di 
leggere i vostri file se volete allonta¬ 
narvi un momento dalla tastiera senza 
spegnere il computer? Ecco un siste¬ 
ma che non può impedire la copiatura 
dei vostri dischetti, ma che può pren¬ 
dersi beffa dell’indiscreto di passag¬ 
gio o del solito furbacchione dell’uffi¬ 
cio accanto che approfitta sempre del 
momento buono per riempirvi lo 
schermo di parolacce. Il metodo di 
protezione qui descritto adempie a 
questo compito e ha diverse varianti. 

Digitate il breve programma del li¬ 
stato per vedere il concetto nella sua 
forma più semplice. Le linee da 120 a 
150 visualizzano al centro dello scher¬ 
mo le impostazioni dei comandi delle 
paddle. La paddle 0 è sulla sinistra, la 
paddle 1 sulla destra. La linea 155 
controlla se il pulsante della paddle 0 
è stato premuto. In caso negativo il 
programma viene rimandato indietro 
alla linea 120. A questo punto tutto 
quello che si vede sullo schermo sono 
le impostazioni delle manopole, che 
cambiano quando vengono ruotate. 

Adesso premiamo il pulsante 0. Se 
la manopola 0 non è impostata fra 150 
e 160 e la manopola 1 non è impostata 
fra 120 e 130 lo schermo si libera. Si 
resta con un cursore lampeggiante, e 
il programma, dopo aver controllato i 
valori delle paddle, è terminato secon¬ 
do le istruzioni delle linee 160 e 500. 
Questo avviene se uno o entrambi i 
valori delle manopole sono fuori del 
campo prescritto. 

Se si vuol dissuadere un malinten¬ 
zionato, anziché mettere fine al pro¬ 
gramma la linea 500 potrebbe presen¬ 
tarsi così: 

500 HOME; PRINT CHR$(7):GOTO 
500 

Abbiamo creato così un allarme an¬ 
tiscasso. Se le impostazioni delle 



paddle sono inesatte, infatti, l’Apple 
farà «bip» fino a che non interverrà un 
operatore. Ma se le manopole sono 
state impostate a dovere l’esecuzione 
procede fino alla linea 170, che stam¬ 
pa il messaggio FUNZIONA. Il pro¬ 
gramma poi potrebbe andare avanti 
da qui in poi fino alla sua conclusione. 

Abbiamo usato le posizioni dei co¬ 
mandi dei giochi per determinare se il 
programma debba continuare o finire: 
una serratura a combinazione per il 
nostro lavoro. 

Naturalmente si possono cambiare 
i parametri della linea 160 scegliendo 
qualsiasi combinazione si desideri. Si 
potrebbe fare il controllo per un unico 
numero anziché per un campo di die¬ 
ci, ma le manopole delle paddle del¬ 
l’Apple non sono in realtà stabili fino a 
tal punto. Si può probabilmente ridur¬ 
re il campo a 5, ma esaminando qual¬ 
cuna delle espansioni descritte qui 
sotto si vedrà che occorre un po’ di 
margine di sicurezza. 

Una serratura più forte 

Questo semplice dispositivo però 
terrà a bada solo il principiante più 
inesperto, e per breve tempo. Se il 
programma finisce egli lo listerà e ve¬ 


drà quel che abbiamo fatto; oppure 
può darsi che abbia notato la visualiz¬ 
zazione dei valori delle paddle e abbia 
capito il nostro piano fin da principio. 

Ecco allora un modo per impedire 
che venga listato un programma che è 
stato appena fatto girare. Si aggiunga 
questa linea: 

10 POKE 214, 128 

Quando il nostro programma (o, 
quanto meno, la linea 10) viene ese¬ 
guito, questo Poke cambia il funziona¬ 
mento dell’analizzatore dei comandi 
Applesoft in modo che qualsiasi co¬ 
mando, per esempio LIST, sia inter¬ 
pretato come RUN. Questo richiede 
una conoscenza dell’interno dell’Ap- 
plesoft che è forse più raffinata di 
quella del vandalo. 

Adesso cancelliamo la linea 10. Es¬ 
sa infatti potrebbe impedire il funzio¬ 
namento di qualcuno degli esperi¬ 
menti che seguono. E salviamo il pro¬ 
gramma su dischetto con il nome di 
Lock Test (prova della serratura) per 
una futura indagine. 

Il nostro programma è ancora sul 
dischetto ed è suscettibile di essere 
caricato, listato, esaminato e cambia¬ 
to dal nostro avversario. Siamo riusciti 
a rallentare l'avversario, fors’anche a 
prenderlo con le mani sulla tastiera al 
suono deir«allarme», ma c’è ancora il 
Lock Test nel catalogo del dischetto: 
una tentazione e un’occasione. 

Una serratura più perfida 

Salviamo ancora il Lock Test con il 
nome di Lock Test 1. Adesso abbiamo 
due copie del programma sullo stesso 
dischetto, ma con nomi diversi. Que¬ 
sto eviterà di doverlo digitare di nuovo 
dopo aver provato la variante succes¬ 
siva. Cambiamo la linea 500: 

500 PRINT CHR$(13); CHR$ (4) 
“DELETE 
LOCK TEST.1” 
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Facciamo girare a questo punto il 
programma con le posizioni delle 
paddle sbagliate. Il disco si metterà a 
ruotare frusciando e smetterà. Esami¬ 
nando il catalogo si vedrà che Lock 
Test.1 non c’è più. Lo abbiamo can¬ 
cellato dal dischetto proprio come 
avrebbe fatto il ladro. 

Ebbene: si può usare un accorgi¬ 
mento del genere per cancellare il 
programma dalla memoria. Salviamo 
ancora il programma come Lock 
Test.1. Poi aggiungiamo la linea 510: 

510 DEL 0,510 

Eseguiamo di nuovo il programma 
con i parametri inesatti. Se lo listiamo 
adesso scopriremo che è evaporato 
sia dalla memoria sia dal dischetto. 
Stiamo davvero causando al nostro 
scassinatore un mucchio di fastidi, e 
può darsi che o rinunci o non abbia la 
competenza occorrente per tentare di 
far rivivere il Lock Test.1 tramite un 
programma di utilità. Noi, naturalmen¬ 
te, ne avevamo fatto una copia di sicu¬ 
rezza... 

Può darsi che ci siano schemi ancor 
più perfidi da escogitare, ma siamo 
arrivati quasi ai limiti cui l’Applesoft ci 
può condurre. I... disk jockey possono 
probabilmente includere il metodo 
della serratura a combinazione in un 
DOS modificato per impedire il boo- 
ting di un dischetto, o addirittura per 
impedire la sua lettura, ove le mano¬ 
pole delle paddle non siano state im¬ 
postate a dovere. 

Combinazioni nascoste 

Si può comunque fuorviare un po’ 
con l’Applesoft il malintenzionato. Per 
esempio può darsi che si vogliano 
spargere lungo tutto il programma i 
controlli delle manopole, con le con¬ 
seguenze che essi comportano, po¬ 
nendo il tutto in un’unica lunga frase 
d istruzione, senza usare GOTO 500. 
Facendo così si corre qualche rischio 
che un urto accidentale cambi le im¬ 
postazioni delle manopole durante l’e¬ 
secuzione del programma, e che esse 
siano poi cancellate quando il lavoro 
incontra una delle istruzioni della ser¬ 
ratura nascosta. Memorizzando i va¬ 
lori delle manopole in un punto sicuro 
della memoria per il futuro controllo si 
eviterebbe un disastro del genere. Ec¬ 
co allora come fare: 

157 POKE 6, PDL(O): POKE 7, 
PDL(1). 

Le locazioni di memoria 6 e 7 sem¬ 
brano inutilizzate dall’Applesoft. dal 
DOS e dal monitor (si consultino i ma¬ 


nuali Apple). Una linea del genere po¬ 
trebbe allora dire: 

300IF PEEK (6) □ 160 OR PEEK (6) • 
150 OR PEEK (7) □ 130 OR PEEK (7) 
• 120 THEN HOME: END 

... eccetera. 

Il fatto che quelle locazioni di me¬ 
moria, 6 e 7 (anche 8 e 9 sono inutiliz¬ 
zate), siano libere permette anche 
l’impiego di un «dischetto chiave», di¬ 
verso dal disco del programma, come 
ulteriore protezione. Si pensi per 
esempio di mettere su un dischetto le 
linee da 100 a 157.1 valori delle padd¬ 
le sarebbero scritti in memoria nelle 
locazioni 6 e 7. Il programma protetto, 
su un altro disco, con inizio su qualco¬ 
sa come la linea 300 o le linee 500 e 
510, a questo punto gira fino a compi¬ 
mento solo se lo ha preceduto con 
successo il programma del dischetto 
chiave. Quelle locazioni libere in me¬ 
moria sopravviveranno al run del pro¬ 
gramma, e anzi, nella maggior parte 
delle circostanze, sopravviveranno 
anche a un PR # 6. Se ne faccia la 
prova concreta. 

Ormai il nostro vandalo è forse tan¬ 
to frustrato da decidere di sfogare la 
sua rabbia ricorrendo all’INIT del no¬ 
stro dischetto con il programma, di¬ 
struggendo tutto ciò che in esso è con¬ 
tenuto. Ma faccia pure: abbiamo la 
nostra copia di riserva, non è vero? 

Naturalmente si può cambiare con¬ 
temporaneamente la cancellazione 
del file sia dalla memoria sia dal di¬ 
schetto, e la impostazione dell’alto¬ 
parlante dell’Apple in modo che suoni 
per richiamare l’attenzione; questo la¬ 
sciando in memoria un’unica linea 
contenente un loop con l’emissione 


109 TE>T : HOflE 
120 ‘7TAB 10; HTAB 15: PRINT 
PDL(6) 

130 'vTAB i8: KTAB 23: PRIffi 
PDl(1) 

140 VTAB 10: HTAB 15: PRM " 

■ 

150 ‘vTTAB 10: HTAB 23: PRIfO " 


indefinita di «bip». 

Non si deve però assolutamente 
perdere traccia delle combinazioni, e, 
vale la pena di ripeterlo, è necessario 
fare copie di sicurezza di ogni mate¬ 
riale sul quale le serrature abbiano 
effetto. Il metodo migliore è quello di 
salvare in memoria le posizioni delle 
paddle quanto più presto possibile nel 
programma, piuttosto che fare asse¬ 
gnamento sul fatto che I comandi dei 
giochi dell’Apple, relativamente Insta¬ 
bili, restino sulla posizione sulla quale 
sono stati regolati. 

Una soluzione hardware 

Con uno zoccolo per circuito inte¬ 
grato a 16 piedini, al quale venga ap¬ 
plicata una minuscola resistenza da 
10 kn, si ottiene lo stesso risultato a 
livello hardware, ma il principio è lo 
stesso. Un terminale della resistenza 
va Introdotto nel foro sopra il piedino 1 
e l’altro Inserito nel foro sopra il piedi¬ 
no 6. Aggiungendo la resistenza e In¬ 
nestando lo zoccolo nel connettore 
vuoto predisposto per le paddle all’in¬ 
terno di Apple, ecco creata un’impo¬ 
stazione molto stabile per la manopo¬ 
la della paddle 0. Un controllo della 
manopola 0 darà sempre come risul¬ 
tato 20 quando lo zoccolo è in posizio¬ 
ne. Infatti la porta dei giochi converte 
l’ingresso analogico proveniente dalla 
manopola in informazioni digitali che il 
computer può usare per dare numeri 
da 0 a 255. La manopola comanda un 
potenziometro da 150 kn, una resi¬ 
stenza variabile che imposta un timer 
nell’Apple. Il timer esegue un conteg¬ 
gio alla rovescia. Il conteggio è in rela¬ 
zione diretta con la quantità di resi¬ 
stenza introdotta nel circuito dal po¬ 
tenziometro. Differenti impostazioni di 
manopola, differenti valori di resisten¬ 
za, differenti conteggi, differenti nu¬ 
meri dati da PRINT PDL(O), il tutto 
nella sequenza indicata. La resisten¬ 
za da 10 kn quindi emula una mano¬ 
pola di controllo giochi impostata in 
modo che la routine del timer dia 20. 
Una resistenza da 15 kfì darebbe un 
risultato diverso. Si veda la pagina 
100 dell’Apple Reference Manual. 

Certo la serratura a combinazione 
per l’Apple non protegge i nostri di¬ 
schetti dalla copiatura, e svolge la 
stessa funzione di una parola d’ordine 
segreta nascosta nel programma, 
senza conoscere la quale diventa dif¬ 
ficile andare avanti. Tuttavia può ral¬ 
lentare l’azione di quasi ognivandalo, 
per quanto deciso. È una protezione 
sufficiente in molte situazioni ed è fa¬ 
cile da mettere in opera. 


155 IF PEEK (-lò287) < 128 GOTO 
120 

i60 IF PDL(0) > ló0 OR PDL(0) < 
150 OR POL(l) > 130 OR PDL(n 
< 120 THEN GOTO 588 
170 HiWE: PRM ■FUNZIONA!" : 
END 

500 HOME: END 
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Prevedere l’andamento ciclico 
degli affari? 

Provate con questi grafici... 

Che 

pressione 


S i può tracciare il grafico delle ven¬ 
dite, ovviamente, come di quaisia- 
si altra variabile. E questo programma 
lo fa, sotto forma di curva o di isto¬ 


grammi, a scelta. Ma ci si può anche 
compiicare un po’ la vita cercando di 
ottenere ii grafico della media mobile 
a tre mesi, il nostro programma fa an- 


i* REM «iut»»**»*»»»»»»*»*»*****» 
ì: rem » CURVE DI PRESSIONE * 

12 REM «(C) 1R83 COPYRIGHT BY « 

13 REM ♦ APPLICANDO E INCIDER * 
t4 REM 

28 REM » AZZER^ENTO 'FRIABILI ♦ 
38 CLEAR : RESTORE : DIM A(68): 
DIM B(60): DIM C(é8): DIM 
D(68) 

48 HOME 

50 REM » MENU PRINCIPALE * 
é8 PRINT 

78 PRIMI •»««*»««»«»»«»*»»»* 
»»»»»«»*»*»««»»»»»»»" 

88 POR X = 3 IO 28 
98 VTABX 

188 PRINT •»*! SPC( 38)i'»’ 

118 NEXT 
120 VTAB 21 

130 PRINT ’»»*»»««»«*«*«»»»«* 
»«»»>»«««««»»»«««««««' 

140 VTAB 3 

150 PRIMT : HTAB 4: PRINT *1) 
INPUT DATI* 

160 PRINT ; HTAB 4: PRINT '2) 
SALVATAGGIO DATI' 

178 PRINT ! HTAB 4: PRINT '3) 
TWOLA DEI DATI GREZZI* 

188 PRINT : HTAB 4: PRINT *4) 
DATI DI 3 MESI* 

190 PRINT : HTAB 4: PRINT *5) 
TWOLA DATI DI PRESSIONE* 

280 PRINT : HTAB 4; PRINT *6) 
PLOTTAGGIO CURVA* 

210 PRINT : HTAB 4; PRINT *7) 
PLOTTAGGIO ISTOGRAMH* 

220 PRINT : HTAB 4: PRINT *8) 
REVISIONE DATI GREZZI* 

230 'VTAB 23: HTAB 4: INPUT 
*SCEGLI UN NUMERO...*iP 
240 IF P = 1 THEN V = 0: GOTO 
330 


250 IF P = 2 THEN V = 8: GOTO 
1680 

268 IF P = 3 THEN V = 8: GOSUB 
2120: GOSUB 748 

270 IF P = <1 ■'HEN V = 1: GOSUB 
2150: GOSUB 748 

230 IF P = 5 THEN y = 1 : GOS'JB 
2288: GOSUB 748 

298 IF P = 6 THEN 0 = 1: GOTO 
1160 

300 IF P = 7 THEN 0 = 2: GOTO 
1180 

310 IF P = 8 THEN 1920 
328 GOTO 40 

330 REM * MENU DI INPUT * 

348 HOME 

350 FOR X = 8 TO 68 
268 A.:X) = e:B(X) = 0:C<X) = 
?!u(X) = 8 
370 NEXTX 
388 ORINT 

398 i^RINT * INPUT DATI*: PRINT 
400 INPUT *DA T)ASTIERA 0 DA 
D)ISCHETT0? (T/D) *;(» 

410 IF 0$ = *D* THEN GOTO 1750 
428 REM ♦ INPUT DA TASTIERA » 
430 HOME 
440 PRINT 

450 INPUT *TIT0L0? *:W 
468 HOME : PRINT 
478 B = 360 

480 INPUT *PRIM0 ^0? * :E 
490 PRINT 

580 PRINT *NUMER0 DI MESI? * 

518 INPUT ■(fi4X=60) ’:R 

520 IF R > 60 THEN HOME : GOTO 
498 

530 RESTORE 

540 FOR T = 8 TO (R - 1) 

558 HOME 
568 PRINT 
578 Y = 0 


588 V = INT (T / 12) 

590 i = E + Y 
600 PRINT *DAT0 per *I 
610 IF T = 12 THEN RESTORE 

628 IF T = 24 THEN RESTORE 

638 IF T = 36 THEN RESTORE 

640 IF T = 48 THEN RESTORE 

650 IF T = 68 THEN RESTORE 

668 PRINT 
670. READ l\ 

688 PRINT Z$;: INPUT Q 
690 B(T) = Q 
700 NEXT T 
710 RESTORE 

728 DATA GEN,FEB.I«R.APR,MAG, 
G1U,LUB,AG0,SET.0TT.N0V,01C 
730 GOTO 40 

748 REM » TAVOLA DEI DATI » 

750 YEAR = E 
768 HOME : RESTORE 
770 PRINT 

780 PRINT *0ATI PER *:i« 

790 PRlfTT 

888 FOR T = 6 TO 38 STEP 7 
810 PRINT TAB( T):YEAR;:YEAR = 
YEAR ♦ 1 : NEXT 

828 PRINT : PRINT * - 


830 FOR T = 1 TO 12 
840 READ M$ 

850 PRINT M$;*:’ 

860 NEXT 
870 T = 7 

880 FOR X = 0 TO 59 STEP 12 

890 VTAB 7 

980 FOR Z = 0 TO 11 

910 HTAB T: PRINT A(Z + X) 

928 NEXT Z 
930 T = T + 7: NEXT X 
940 REM » TROW) mSSIMO E 
MINIMO » 

Segue a pag. 58 


57 





che questo senza batter ciglio, grazie 
alla semplice pressione di un tasto da 
menù. E sempre sotto forma di curva 
o di istogramma. 

Ma immaginiamo un'ulteriore com¬ 
plicazione: vogliamo il grafico del rap¬ 
porto fra le vendite di un certo periodo 
e le vendite di un periodo precedente 
paragonabile. Per esempio le vendite 
di quest’anno raffrontate alle vendite 
degli anni scorsi. In pratica cosa suc¬ 
cede? Che se si confronta il dato rela¬ 
tivo alle vendite di un certo mese di 
quest’anno a quello del mese corri¬ 
spondente dell’anno scorso otterremo 
il tasso di crescita delle nostre ven¬ 
dite. 

Occorre dirlo? Il nostro programma 
fa anche questo, ancora una volta sot¬ 
to forma di istogrammi o di curva. Inol¬ 
tre conserva i dati in un file, pronti per 
l’inserimento delle cifre relative ai 



prossimi mesi. È un programma sem¬ 
plice, non troppo noioso da digitare 
(ma come al solito disponibile anche 
già su dischetto), che può fornire qual¬ 
che immediata indicazione visiva su 
come stanno andando le cose, e aiu¬ 
tare concretamente a prevedere i pos¬ 
sibili andamenti futuri. 

La prima opzione del menù è quella 
di inserimento. I dati possono essere 


Segue da pag. 57 

?50 U = A(e):U = 999999 

960 FOR X = V TO R - (1 + V) 

970 IF A(X) = 0 THEN 1000 

980 IF A(X) ) U THEN U = A(X) 

990 IF A<X) < W THEN U = A(X) 

1000 NEXT X 

1010 IF U = 0 THEN FLASH ; 

PRINT : PRINT 'DATI 
INSUFFICIENTI!*! NORfWL ! GOTO 
1540 

1020 REM » STFMPA fttSSIHO E 
MINIMO » 


1030 

PRINT 

: PRINT ! PRINT 

■(MX.=*;U 

,! PRINT *MIN.= *|U 

1040 

IF P = 

5 THEN V = 13 

1058 

FRMT = 

<150 / U) » .95 

1060 

GOSUB 

2180 

1070 

PRINT 


1080 

INPUT 

*PREMI RETURN PER 

CONTINUARE *;PÌ 

1090 

RETURN 


1100 

REM » 

ROUTINE GRAFICA * 

1110 

HOME : 

GOSUB 1140 

1120 

IF Q = 

1 GOTO 1300 

1130 

IF Q = 

2 GOTO 1400 

1140 

HGR 


1150 

HC0L0R= 7 

1160 

HPLOT : 

5.5 

1170 

HPLOT 

TO 5,155 

1180 

HPLOT 

TO 245,155 

1190 

HPLOT 

TO 245,5 

1200 

HPLOT 

TO 5,5 

1210 

FOR A = 

= 17 TO 245 STEP 12 

1220 

HPLOT A,155 TO A,157: NEXT 

1230 

FOR A = 

= 5 TO 245 STEP 48 

1240 

HPLOT f 

),155 TO A,159: NEXT 

1250 

FOR A = 

= 155 TO 5 STEP - 


7.5 


j260 HPLOT 2,A TO 5,A: NEXT 
1270 FOR A = 155 TO 5 STEP - 15 
1280 HPLOT 0,A TO 5,A: NEXT 
1290 RETURN 
1300 REM « CUR*M * 

1310 X = V 

1320 HPLOT (5 4 4.1 » V),155 - 
(A(X) » FRMT) 

1330 FOR A = (5 4 4.1 * V) TO 
250 STEP 4.1 
1340 B = A(X) » FRMT 
1350 IF 8 = 0 THEN 1370 
1368 HPLOT T0A,155-B 
1370 X = X 4 1: IF X = R THEN 
1500 

1338 NEXT 

1390 GOTO 1500 

1400 REM » ISTOGRAfffl » 

1410 X = V 

1420 FOR A = <7 4 4.1 » U) TO 
258 STEP 4 

1430 B = A(X) « FRMT 
1440 IF B = 0 THEN 1480 
1450 HPLOT A,155 - B TO A,155 
1460 HPLOT A 4 1,155 - B TO A 4 
1,155 

1470 HPLOT A - 1,155 - B TO A - 
1,155 

1480 X = X 4 l! IF X = R THEN 
1500 

1490 NEXT 

1500 VTAB 21: PRINT *8 'i SPC( 

5) 1*1 ■; SPC( 5)i*2 *! SPC( 

5)1*3 ’i SPC( 5)5*4 *; SPC( 

5).*5 • 

1510 'rem * STAMPA fttSSIMO E 
MINIMO * 

1520 IF U"= 8 THEN VTAB 22: 

GOTO 1818 


inseriti manualmente o richiamati da 
disco (se inseriti in precedenza e sal¬ 
vati con l’opzione 2). Alla domanda 
PRIMO ANNO? che viene dallo 
schermo si risponde battendo 1982 o 
qualunque altro primo anno si deside¬ 
ri. Poi arriva la richiesta NUMERO DEI 
MESI? (massimo 60), alla quale è me¬ 
glio rispondere col numero effettivo di 
dati che si intende inserire subito. In 
ogni caso si potranno inserire dati an¬ 
che successivamente (fino a un mas¬ 
simo comunque di 60) attraverso l’op¬ 
zione MODIFICA DATI. 

L’opzione 2 chiede con quale nome 
si vuol conservare i dati su dischetto, e 
a registrazione effettuata riporta al 
menù. Con l’opzione 3 si possono ri¬ 
vedere, sotto forma di tabella, le cifre 
che abbiamo inserito. La quattro inve¬ 
ce mostra, sempre come tabella, non 
più i nostri dati originali ma la loro me- 


1538 VTAB 22: PRIMI 
*fV»(.=*;U,*MIN.=*;U 
1540 POKE 34,32 
1550 PRINT 

1560 INPUT * PREMERE RETURN PER 
CONTINUARE *;P$ 

1570 TEXT : GOTO 40 

1580 TEXT 

1590 HOME : END 

1688 REM < SALtMT.su DISCO * 

k.l0 HOME 

1620 D$ = CHR$(4) ! REM CTRL-O 
1630 PRINT D$*N0M0NC,1,0*! HOME 
1640 PRINT 00 5 *OPEN*;W» 

1658 PRINT D$;*DELETE*;W 
1660 PRINT D$;*0PEN*;UI 
1670 PRINT D0;*URITE*;l« 

1680 PRINT (R - 1) 

1698 PRINT E 

1788 FOR X = 8 TO (R - 1) 

1710 PRINT B(X) 

1720 NEXT X 

1738 PRINT DI|*CLOSE*|U0 
1740 GOTO’48 

1758 REM * CARIC. DA DISCO « 
1760 PRINT 

1770 INPUT *TIT0L0? *;l« 

1780 DI = CHR$(4) : REM CTRL-D 
1798 PRINT D$*N0M0NC,1,0*: HOME 
1800 PRINT D0 5 *OPEN*;W 0 
1810 PRINT 0$|*READ*;l« 

1828 INPUT 0 
1830 INPUT E 
1840 FOR X = 8 TO Q 
1850 R = Q 4 1 
1860 INPUT 8(X) 

1878 NEXT X 

1888 PRINT O0!*CLOSE*;W$ 

Segue a pag. 60 
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Min. Rich. 



Sì, hai letto bene. Gratis. 

Gratis un plotter Watanabe con sei penne colorate 
in grado di disegnare su fogli da 42 x 29,7 cm. 

E il regalo di Natale 

che Applicando farà ai suoi lettori, estraendo a sorte 
dieci nominativi fra tutti coloro che risulteranno abbonati 
alla data del 25 dicembre 1983, e, fra i dieci, 
regalandolo a chi si è abbonato per primo. 
Abbonati subito. Avrai più probabilità di vincere! 
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1896 60SUB 2126 
1906 GOSUB 746 
1916 GOTO 46 

1926 REM « REVISIONE DATI » 

1936 V = 6: GOSUB 2126 
1946 GOSUB 746 
1950 POKE 34,20 
1966 HOME 

1976 PRINT •BATTI MESE (1-12) , 
AWO ■ 

1986 PRINT ‘BATTI 6,6 PER 
TORTORE AL MENU' 

1996 INPUT MI.Y1 
2666 IF NI = 0 THEN TE)(T : GOTO 
46 

2610 IF Y1 < E OR Yl > (£ ♦ 4) 
THEN 2090 

2626 IF MI < 6 OR NI > 12 THEN 
2098 

2630 E2 = (MI - 1) ♦ (12 » (Yl - 
E» 

2646 HOME 

2656 PRINT ’C^VIBlARE DA: •;A(E2) 
2060 INPUT 'A :';ND 
2070 A(E2) = ND 

2086 IF E2 > (R - 1) THEN R = E2 
+ 1 

2090 TE)(T 


2100 FOR RO = 6 TO 59:B(RD> = 
A(RD): NEXT 
2116 GOTO 1920 

2126 REM » PR04DI DATI GREZZI » 
2138 FOR RD = 0 TO 59:A(RD> = 
B(RD): NE)(T 
2146 RETURN 

2150 R01 * PRENDI DATA * 
2160 FOR Wì = 6 TO 59:A(m) = 
C(rtt): NE)a 
2170 RETURN 

2180 REM * CALCOLO Slftt » 

•2198 Y = 1 

2200 FOR X = 0 TO R - 3 
2210 C(Y) = INT ((B(X) + B(X + 
1) ♦ B(X ♦ 2)) / 3) 

2226 Y* Y + 1: NEXT 
2238 REM » CALCOLO PRESSIONE « 
2248 FOR Y = 13 TO R 
2250 D(Y) = INT ( INT ((C(Y) / 
C(Y - 12» » 1606) / 10) 

2260 NEXT Y 
2270 RETURN 

2280 REM * PRENDI I DATI DI 
PRESSIONE » 

2290 FOR PR = 8 TO 59:A(PR) = 
D(PR): NEXT 
2300 RETURN 


dia mobile a tre mesi. In pratica se 
avremo digitato le nostre vendite per i 
mesi di gennaio, febbraio, marzo e 
aprile, non vedremo nulla per il mese 
di gennaio, avremo invece una cifra 
corrispondente alla media fra gen¬ 
naio, febbraio e marzo indicata come 
mese di febbraio; per il mese di marzo 
avremo la media fra febbraio, marzo e 
aprile, e così via: le punte sono state 
smussate. 

L'opzione 5 dà accesso invece, in 
corrispondenza di ciascun mese, al 
tasso di incremento o di decremento 
rispetto allo stesso mese dell’anno 
prima. Questa opzione tuttavia, per 
poter funzionare a dovere, necessita 
di una serie sufficiente di dati per poter 
fare la comparazione. 

Le opzioni 6 e 7 apparentemente 
non necessitano di spiegazioni; ese¬ 
guono il plottaggio sullo schermo di 
curve o istogrammi tratti dai nostri da¬ 
ti. Invece una spiegazione è indispen¬ 
sabile; plottano le cifre della tavola vi¬ 
sionata in precedenza. Cioè: voglio 
vedere la curva della media mobile a 
tre mesi? allora dovrò chiedere prima 
la tavola della media mobile a tre me¬ 
si; voglio vedere gli istogrammi dei da¬ 
ti grezzi? allora devo passare prima 
dall'opzione 3, quella dei dati grezzi. 
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Questa routine in linguaggio macchina 
consente una migliore gestione della 
memorizzazione su disco di numeri reali 

Come ottimizzare 
i file numerici 


V i siete mai trovati nella necessità di 
memorizzare su disco un file di nu¬ 
meri reali? Se avete provato vi sarete 
accorti che il DOS 3.3 non è un mostro 
di efficienza in questo lavoro: l’ingres¬ 
so e l’uscita sono piuttosto lenti e lo 
spazio occupato da un insieme di nu¬ 
meri su disco non coincide con quello 
che essi occupavano quando erano in 
memoria centrale, ma è spesso deci¬ 
samente maggiore. 

Come mai questa differenza? Oc¬ 
corre ricordare che l’Apple memorizza 
i numeri in file di testo, quindi in forma¬ 
to carattere, impiegando un carattere 
ASCII per ogni cifra del numero in no¬ 
tazione decimale. Questo formato è 
comodo in quanto permette di trattare 
I file numerici e i file di testo esatta¬ 
mente nella stessa maniera: in en¬ 
trambi ì casi si tratta di file contenenti 
una sequenza di caratteri, ma richiede 
in ingresso e in uscita laboriose con¬ 
versioni binario-decimale e decimale- 
binario. Altra conseguenza di questa 
scelta operata dall’Apple è che ogni 
numero, una volta su disco, occupa 
uno spazio variabile da 1 a 15 caratte¬ 
ri. Tanti infatti sono i caratteri che 
compongono un numero nella peggio¬ 
re delle Ipotesi (segno meno, punto 
decimale, 9 cifre di mantissa, lettera 
E, segno dell’esponente, due cifre di 
esponente). Inoltre ciascun numero 
deve essere seguito da un carattere 
RETURN, che lo separa dal valore 
successivo. 

Ecco dunque i principali problemi 
che affliggono il programmatore che 


debba utilizzare file numerici: 

• i file sono più lunghi dello stretto 
necessario, 

• le operazioni di 1/0 sono rallentate 
dalle conversioni, 

• non è possibile sostituire un nume¬ 
ro In un file con un altro in quanto non 
è detto che i due numeri abbiano la 
stessa lunghezza, 

• volendo riservare a tutti I numeri lo 
stesso spazio in modo da poter legge¬ 
re e scrivere facilmente anche un solo 
valore in qualsiasi punto del file (file 
random) occorre riservare 16 b^es 
per ogni numero, sprecando ancora 
più spazio. 

La soluzione 

Esiste la possibilità di memorizzare 
i numeri reali in spazi di memoria di 
massa di lunghezza fissa pari a 5 by- 
tes semplicemente trascrivendoli su 
disco nello stesso formato in cui si 
trovano nella memoria centrale. Que¬ 
sta soluzione permette di costruire file 
facilissimi da modificare in quanto i 
numeri sono tutti lunghi uguali; per lo 
stesso motivo è inutile introdurre il ca¬ 
rattere RETURN di fine campo. In più 
l’ingombro di memoria è abbastanza 
contenuto (5 bytes per numero) e si 
evitano le inutili conversioni a tutto 
vantaggio di velocità e precisione. 

Come si usa 

All’inizio del programma applicativo 
occorre caricare in memoria la routine 
in linguaggio macchina di cui ripetia¬ 


mo il listato. Questa routine viene al¬ 
loggiata nella pagina 3 della memoria 
dell’Apple e viene chiamata quando 
occorre con l’istruzione CALL 768, se¬ 
guita dalle specifiche dell’operazione 
da compiere: CALL 768 PRINT I fa 
registrare sul disco il valore di I in for¬ 
mato binario, mentre CALL 768 IN¬ 
PUT I fa leggere da disco il valore di I. 

Naturalmente con questo sistema 
si possono leggere e scrivere su disco 
solo numeri: le istruzioni CALL 768 
PRINT A$ e CALL 768 INPUT A$ ge¬ 
nerano un TYPE MISMATCH 
ERRQR. 

È possibile memorizzare nello stes¬ 
so file numeri in formato binario, strin¬ 
ghe di caratteri e numeri in formato 
caratteri, purché in fase di lettura si 
leggano le stringhe di caratteri con l’i¬ 
struzione INPUT e i numeri in formato 
binario con CALL 768 INPUT, non si 
tenti cioè di leggere in formato binario 
ciò che è stato scritto in formato carat¬ 
tere e viceversa: il risultato sarebbe la 
lettura di valori casuali e anche la 
comparsa di END QF DATA ERRQR 
fasulli. Il programma BASIC di figura 2 
fornisce un esempio di scrittura e suc¬ 
cessiva lettura di un file misto, conte¬ 
nente sia stringhe sia numeri in forma¬ 
to binario. 

Nel caso che i comandi CALL 768 
INPUT e CALL 768 PRINT non trovino 
un file aperto su cui agire (ad esempio 
perché il programmatore ha dimenti¬ 
cato di fornire al DQS il comando 
READ o WRITE) si avrà una segnala¬ 
zione di END QF DATA ERRQR. 
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[EWS 

FROM FAR EAST 
ready from stock 

Special selection for factory 
manufactory, workshop 
computer shop, distributors 
OEM, customs. 

©COMPUSAVE L. 49.600 

Protegge il vostro Personal con il COMPUSAVE. un 
accessorio che si applica, molto semplicemente, 
ad incastro, sul contenitore del vostro personal e che 
assolve la funzione di impedire il surriscaldamento 
dei componenti, integrati, memorie, alimentatori, 
ecc. eliminando quindi tutti i possibili guasti dovuti 
a shock termici. Consente inoltre di bypassare l’in¬ 
terruttore di acceso spento eliminando quindi la pos¬ 
sibilità che si guasti 
(2)PSA -2B L 173.000 

Alimentatore switching da 60 W ad alta affidabilità. 
Essendo assolutamente standard sia come tensioni 
e correnti, che come dimensioni, trova il suo im¬ 
piego ideale come ricambio o come elemento base 
per le vostre realizzazioni personali. Grazie alla ele¬ 
vata riserva di potenza è in grado di alimentare con¬ 
temporaneamente sia una CPU main board che le 
varie schede accessorie e floppy disc. 
Caratteristiche; -h 5V 5.5Ay-5V 0.5 A/-h12V 
2A/-12V0.5 0.5 A 

Alimentaz. 220V ca - Dimens. 90x55x250 mm 





Benvenuti 
i rivenditori. 

Ai privati, vendita 
solo per contanti. 


MK 


VBE elettronica 


SOUSCE FILE: FPIO 




-NEXT QBJECT FILE mi IS FPIQ.QBJ0 

&300: 

4 

i 

ORG 

$0-300 


0300: 

2 ^ 




0300: 

3 ROUTINE. DELL’ INTERPRETE. USftTL PRQGRfmi. 

0300: 

4 PER.iJNP.DESCRIZIONE. VEDERE.Lft.VOCE. BIBLI06RAFICfl.’2. 

0300: 

5 ^ 




00B1: 

6 QtìRGE^ 

r EDU 

$B1 

;LEG6E 1 CARATTERE DAL PROGRAMMA 

0300: 

7 ;^IC 

£ INCREMENTA TXTPTR <$B8 $89) 

00B7: 

8 CHARGOT EBU 

$87 

;IDEH, HA NON IfCREMENTA $B8 $89 

DFE3: 

9 PTR6ET 

EBU 

Ì0FE3 

;CERCA IJNA VARIABILE 

DD67: 

10 FRWUM 

EBU 

$DD67 

;VALUTA m FORMULA MiMERICA 

D412: 

Il ERROR 

EBU 

$0412 

IDA UN MESSAGGIO DI ERRORE 

D£B£: 

12 CNKO^ 

EQU 

$DEBE 

ICONTRQLLA CHE NEL PROGRAMMA 

0300: 

13 ;BfiSIC CI SIA IWA VIRGOLA 

EB72: 

14 ROUND 

EQU 

$EB72 

;arrqtow)a fac 

DEC0: 

15 SYNCHR 

EQU 

$DEC0 

;VERIFICA CHE NEL PROGRf^ BASIC 

0300: 

16 ;Ci SIA UN CARATTERE UGIR-E ALL’ACC. 

0380: 

17 ♦ 




0300: 

18 ♦. ifflUTINES.E.DATI.DEL. D(K.USATI.DA.PRQGRArtlA. 

0300: 

19 ♦ 





20 OUTSW 

EQU 

$AA52 

INDICA AL DOS DOVE INVIARE 

0300: 

21 ;GLI OUTPUT 



mi 

22 INPSW 

EQU 

$AA51 

;ID£M PER GLI INPUT 

flftSC: 

23 OSAVA 

EQU 

$AA5C 

;L0CAZ. PER salvare L’ACaiM. 

imi 

24 DSAVY 

EQU 

$AA56 

;IDEM REG. Y 

flft59: 

25 DSAVP 

EBU 

$AA59 

lIDEM STACK POINTER 

9EE0: 

26 DISCDOS EDU 

$3EEe 

;R0UTIN£ che DISCOMCTTE il DOS 

0300: 

27 ;DALL£ OPERAZIONI DI 

I/O 

mi 

28 CONNDOS EBU 

$A851 

; ROUTINE CHE LO lllCOWETTE 

»60E: 

29 OUTDOS 

EQU 

$A60E 

;R0UTINE DOS di out byte 

0300: 

30 jSENZA controlli SUL SUO VftDRE 

ft68C: 

31 INOOS 

EQU 

$A68C 

5IDEM INPUT 

fi63F: 

32 EDKRR 

EQU 

$A63F 

; ROUTINE CHE DA Ef© OF DATA 

03.00: 

33 ♦ 




0.300: 

34 ♦. LOCAZIONI. RAM. USATE. DAL. BASIC. E. DAL. PROGRAftlA. 

0300: 

35 ‘i' 




089D: 

-36 FACEXP 

EQU 

$9D 

JESPQNENTEr BYTE PIU SIGNI- 

0eSE: 

37 FACHOKO EBU 

$9E 

JFICATIVI DELLA MANTISSA E 

mfi 

38 FAD« 

EBU 

$9F 

JSEBND DELL’ACCUMULATORE FP 

00fì2: 

39 F«:SGN 

EBU 

$A2 

; (ABBREVIATO FAC) 

0083: 

40 VARPNT 

EQU 

$83 

;Pl^<TA ALLA VARIABILE TROVATA 

0-300: 

41 ?DA PTRGET 



0011: 

42 VfLTYP 

EQU 

$11 

; INDICA SE L’ACCUMULATORE FP 

0300: 

43 ?E’ NUMERO 0 STRINGA 


0012: 

44 NL«1TYP 

EBU 

$12 

; INDICA SE LA VARIABILE NUMERICA 

0-300: 

45 ?TROVATA DA PTRGET E’ 

FP 0 INTERA 

0300: 

46 ♦ 




0300: 

47 ♦.CODICI. PAROLE. CHIAVE. USATE.NEI. COMANDI.AGGIUNTI. 

0300: 

48 * 





49 PRINT 

EQU 

$BA 


0084: 

50 INPUT 

EBU 

$84 


03.00: 

51 ♦ 




0300: 

52 *. INIZIO.CODICE. 


0300: 

53 ♦ 




0300:20 B7 00 

54 

JSR 

CHARGOT 

; PRENDE CARATTERE DOPO CALL768 

0303:i::9 Bft 

55 

CMP 

#PRINT 

;VED£ SE E’ PRINT 

0305:00 56 

56 

6NE 

FPIN 

;SALTA SE INPUT 

0307:fl£ 52 ftft 

57 

UDX 

OUTSW 

;C0^WJTAT0RE DI IJSCITA DEL DOS 

030A:E0 05 

58 

CPX 

#$05 

;SE=5i HA RICEVUTO UN COMANDO 

0-30C:Oe 46 

59 

BNE 

OUTDATA 

ìWRITE, SE NO E’ UN ERRORE 

03^:CE 52 M 

60 

DEC 

OUTSW 

JSEBNALA ’OUTPUT IN i3)RSQ’ 

0311:20 B1 00 

61 

JSR 

CHARGET 

;INCREMENTA TXTPTR E 

0314:20 67 DO 

62 NXTQUT 

JSR 

FRMNUN 

;VALUTA IL NUMERO DA FAR USCIRE 

0317:20 72 EB 

63 

JSR 

ROUND 


031ft:20 E0 9E 

64 

JSR 

DISCDOS 


0-31D:A6 90 

65 

LDX 

FACEXP 

ICARICA L’ESPONENTE: SE E’ NULLO 

031F:O0 04 

66 

BNE 

NONZER 

;ALL0RA FAC VALE 0. PRIMA DI FAR 

0321:Cfl 

67 

DEX 


;USCIRE IL NUMERO IHPOhE FAdCHO 

0322:85 9E 

68 

STA 

FACHOHO 

;o 0 

0-324:68 

69 

INX 


?RICARICA FACEXP IN A 

0325:8ft 

70 NDNZER 

TXA 



0-326:20 B2 03 

71 

JSR 

OUTOIC 

;FA uscire FACEXP. PRIMA DI FAR 

0329:ft9 7F 

72 

LDA 

#$7F 

ll^IRE GLI ALTRI BYTE SOSTITUI- 

0-32B:05 ft2 

73 

ORA 

FACSGN 

:SCE IL SEGNO AL DI FACHOHO 

0320:25 9E 

74 

AND 

FACHOHO 

;d£ E’ SEMPRE 1 E QUINDI PUD’ 

03^:20 B2 03 

75 

JSR 

OUTONE 

?POf€ IL NWERO IN USCITA 

0332:^0 00 

76 

LDY 

#$00 


0334:B9 SF 00 

77 OUTLQP 

LDA 

FACHOtY 


0337:20 B2 03 

78 

JSR 

OUTONE 














Come funziona 

Quando l’Apple stampa qualcosa, i 
caratteri da emettere vengono passati 
uno alla volta a una routine del pro¬ 
gramma monitor (COUT) che li passa 
a sua volta alla routine il cui indirizzo si 
trova nelle locazioni CSW ($36 e $37, 
$ significa che si tratta di numeri esa- 
decimali). Egualmente, per le opera¬ 
zioni di ingresso l’interprete chiama 
una routine (RDKEY) che salta a 
un’indirizzo contenuto nelle locazioni 
KSW ($38 e $39). 

Quando nell'Apple si carica il DOS 
però tutti gli ingressi e le uscite vengo¬ 
no intercettati dal DOS stesso per po¬ 
ter Identificare i comandi ad esso rivol¬ 
ti. In pratica le locazioni CSW e KSW 
puntano a due routine del DOS che 
«filtrano» i comandi DOS e lasciano 
passare il resto trasmettendolo alle 
routine destinatarie. 

Se noi tentassimo di scrivere su di¬ 
sco usando i normali sistemi I byte che 
compongono dei numeri reali, le cose 
potrebbero in un primo momento fun- 


100 D$ = CHR$ (h) 

110 PRINT D$;"BL0AD FPIO.OBJ0' 
120 PRINT D$;‘'0P£N PROVft" 

130 PRINT Ds;"WRITE PRm* 
m I = 165:J = 0:K = 9t20 
1.50 PRI.NT «STAHPO IjMP -STRINGfi" 
150 PtT' ORfi NUMERI IN BINARIO 
i70 DLL 75S PRINT I;J;K 
180 PRINT ‘^ORA UN^ ALTRA STRIMIA" 
;90 PRINT D$;“CL0S£'‘ 

200 REM ORA RILEGGO IL FILE 
210 PRINT D$;‘'0PEN PROVA" 

220 PRINT Di;"READ PROVA" 

230 REM INPUT PRIMA STRINGA 

240 input Ai 

250 REM INPUT NUMERI 

250 DLL 758 INPUT I,J»K 

270 REM INPUT ALTRA STRINGA 

280 INPUT Bi 

290 PRINT DirCLOSE" 

300 END 

Il listato in basic per provare ia 

routine 


zionare, ma poi ci troveremmo proba¬ 
bilmente di fronte a comportamenti 
del calcolatore perlomeno stravagan¬ 
ti. Non si può infatti escludere che tra I 
byte in uscita non vi siano i caratteri 
RETURN e control-D ia cui presenza 
Indica che ciò che segue è un coman- 


033A:C8 

80 

INY 



033B:C0 03 

81 

CPY 

#$03 


033DID0 r5 

82 

BNE 

OUTLOP 


033F:20 51 A8 

83 

JSR 

CONNDOS 


0342:20 B7 00 

84 

JSR 

CHARGQT 

; VEDE SE P RNITAL’istruì I0l€ 

0345:F0 09 

85 

BEO 

ENDFLD 

?SI (00 0 :) 

;H3. DP iJN ALTRO VALORE DA 

0347:C9 3B 

86 

CMP 

#$3B 

0349:00 C9 

87 

m 

NXTOUT 

;FAR USCIRE 

034B:20 B1 00 

88 

JSR 

CHARGET 

;SE P£* UN ? LO SAlTA 

?E IN OGNI CASO TORNA A NXTOUT 

034E:D0 C4 

89 

B^£ 

NXTOUT 

0350:EE 52 AA 

90 ENDFLD 

INC 

OUTSW 

JRIMEHE 5 IN QUTSW PER SEGNARE 

0353:68 

91 

RTS 


KCOME SE (LLA FINE DI UN NOR- 

0354: 

92 ;«ALE OUTPUT CI FKSE UN CR) 

0354: 

93 




0354:A2 2A 

94 GUIDATA LDX 

#42 


0355:00 02 

95 

BNE 

ERRI 


0358:A2 A3 

96 MISI^RR LDX 

#163 


035fl:4C 12 04 

97 ERRI 

JHP 

ERROR 


0350; 

98 ♦ 




035D;A9 84 

99 FPIN 

LDA 

#INPUT 

;VERIF1CA CHE SIA INPUT PISTRU- 

035F;20 C0 DE 

100 

JSR 

SYNCHR 

;ZI0NE DOPO CAlL768 

0362:20 E3 DF 

101 NEXTIN 

JSR 

PTR6ET 

;TR0VA LA VARIAB. DA FAR ENTRARE 

0365:A5 11 

102 

LDA 

VALTYP 

;C0NTf®LLA CHE SIA UN NUMERO 

0367:05 12 

103 

ORA 

NUMTYP 

?E CHE SIA FP 

0369:00 ED 

104 

BNE 

MISMERR 

?DA TYPE MISMATCH ERROR 

036B:AE 51 m 

105 

LDX 

INPSW 

;C0NTR0LLA PINGR. SIA DA FILE 

036E:CA 

106 

DEX 



036F:D0 E3 

107 

BNE 

OUTDATA 

;5E INPSW POI, ERRORE 

0371:20 E0 9E 

108 

JSR 

DISCDOS 


0374:A0 00 

109 

LDY 

nm 

ICONTATORE DI BVTES 

0376:20 C0 03 

110 

JSR 

INGNE 

tCARICA FACEXP 

0379:C9 00 

111 

CMP 

#$00 

;SE =0, ALLORA FAC=0 

037B:D0 12 

112 

BNE 

DINLOPl 

;SE 0 0 CARICA LA MANTISSA 

0370:20 C0 03 

113 

JSR 

INONE 

;SE P 0 GiJARDA IL BYTE SEGUENTE 

0380:C9 00 

114 

CMP 

#$00 

;SE P 0 0 STO LEGGENDO UNO 0 

0382:00 03 

115 

BNE 

NOEOD 

;SE P 0 LEGGE OLTRE FINE FILE 

0384;4C 3F A6 

116 

JMP 

EQDERR 

;E SEGNfti) END QF DATA 

0387:98 

117 NOEOD 

IVA 


;Y=00 

0388:91 83 

118 

STA 

(VARPNT),Y ;MEn0 LO 0 NELLA VARIABILE 

038A:A0 02 

119 

LDY 

»$e2 

;ai ALTRI BYTE NON SONO SIGNIF. 

038C:20 C0 03 

120 DINLOP 

JSR 

IWM 

ìRICEVE i BYTE 

038F:91 83 

121 DINlOPI STA 

(VARfW),Y ;E lo ?€TTE NELLA VARIABILE 

0391;C8 

122 

INY 



0392:1:0 05 

123 

CPY 

#$05 

;C0Sr PER 5 BYTES 

0394:00 FB 

124 

BNE 

DINLOP 


0396:20 51 AS 

125 

JSR 

CI1^WD0S 


0399:20 B7 00 

126 

JSR 

CHARGQT 

;LE6GE il carattere ’OiE SEGUE 
;LA VAR!ABIL£:3E P 00 0 : 

039C:D0 01 

127 


MOREIN 

039E:E0 

128 

RTS 

iPISTflUZ. P FINITA E RITORNA 

039F:20 BE DE 

129 MOREIN 

JSR 

CHKCOM 

;SE NO DEVE ESSERCI ÌM VIRGOLA 

03A2:4C 62 03 

130 

JMP 

NEXTIN 

;£ FA ENTRARE UN’ALTRA VARIAB. 

03f€: 

131 ♦ 




83A5;8D 5C AA 

132 SAVEREG STA 

DSAVA 

;SALVA A COME IL CLl DEL DOS 

03A8:8C 5B AA 

133 

STY 

DSAVY 

;ID. Y 

03AB:BA 

134 

TSX 


;ID. S, TEieiDO CONTO D€ NELLO 
;STACK PP ANCHE L’INDIRIZZO DI 

03AC;E8 

135 

INX 


03AD:E8 

136 

INX 


IRITORNO DA QUESTA SuBROUTINE 

03AE:^ 59 AA 

137 

STX 

DSAVP 


03Bi:&0 

138 

RTS 



03B2: 

139 ♦ 




03B2:20 A5 03 

140 OUTONE 

JSR 

SAVEREG 

;PQNE IN USCITA IN UN FILE tW 

03B5:20 0E A6 

141 

JSR 

OUTDCS 

;BYT£, SALTANDO I CONTROLLI SUL 

03B8:AE 59 AA 

142 L0DRE6 

LDX 

DSAVP 

IRECUPERA I fEGISTRI 

03&B:9A 

143 

TXS 



03BC;AC 5B AA 

144 

LDY 

DSAVY 


03BF:B0 

145 

RTS 



83C0: 

146 ♦ 




03C0:20 A5 03 

147 INQNE 

JSR 

SAVEREG 

lACCEHA 1 BYTE DA UN FILE 

03C3:20 8C A6 

148 

JSR 

INDOS 

?I CONTROLLI SUL SUO CONTENUTO 

03C6:4C B8 03 

149 

JMP 

LODREG 



SimSSPJL ASSEMBLY: no esrors 
B1 CHARGET B7 CHAR6QT 

038F DINLOPl 
AA59 DSAVP 
035A ERRI 


gp FfLHO 
A68C INDOS 
03B8 LODfLG 
0387 NOEOO 


038C DIfLQP 
AA5B DSAVY 
D412 ERRGR 
A2 FACS6N 
03C0 IM(M 
0358 MISMERR 
0325 NONZER 


DEK CHKCOM 
9EE0 DISCDG3 
0350 ENDFLD 
90 FACEXP 
0350 FPIN 
AA51. INPSW 
039F MDREIN 
12 NUMTYP 


ASSI mms 
AA5C OSAVA 
A53F EOOERR 
9E FACHCH3 
0D57 mm 
84 INPUT 
0362 NEXTIN 
2314 NXTdiT 
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do DOS. Risultato sarebbe Tinterpre- 
tazione come comando di una serie di 
byte che darebbero luogo a messaggi 
di errore. 

Anche ammettendo di essere riu¬ 
sciti a registrare correttamente i nu¬ 
meri in formato binario, i guai ricomin- 
cerebbero al momento della lettura; 
l’Apple infatti utilizza come marca di 
fine-file il byte nullo, e quindi appena si 
presentasse un b^e nullo nella se¬ 
quenza dei dati ci troveremmo con un 
bellissimo END OF DATA ERROR 
sullo schermo. 

Da queste considerazioni appare 
evidente che occorre fare un uso un 
po’ anticonvenzionale del DOS, evi¬ 
tando le routine che rilevano la pre¬ 
senza di comandi fra i caratteri in usci¬ 
ta, evitando la routine che rileva la 
marca di fine-file in ingresso, e rive¬ 
lando altrimenti la fine del file. 

Per nostra fortuna il DOS è diviso 
abbastanza nettamente in 3 strati, cia¬ 
scuno dei quali svolge funzioni a un 
diverso livello. Lo strato più interno è 
la subroutine RWTS, che legge e scri¬ 
ve i settori fisici del disco. Immediata¬ 
mente al di sopra si trova una serie di 
routine che potremo chiamare FILE 
MANAGER che, usando settori fisici 
di disco permettono allo strato esterno 
di «vedere» il disco come una serie di 
file logici. 

Allo strato esterno resta il compito 
di interfaccia con l’utente, in particola¬ 
re l’interpretazione dei comandi e la 
stampa dei messaggi di errore. 

Se saltiamo lo strato esterno del 
DOS e dialoghiamo con il FILE MA¬ 
NAGER utilizzando direttamente le 
routine che svolgono l’ingresso e l’u¬ 
scita di un byte, eliminiamo ogni inter¬ 


0354 OUTDftTA 

A60E QUTDOS 

0334 OUILOP 

03B2 OUTCIE 

AA52 OUTSU 

Bfl frinì 

DFE3 PIR6EI 

EB72 ROUND 

03A5 SAVEREG 

DEC0 SYNCHR 

11 VALIYP 

83 VARPNT 

11 WLTYP 

12 fWUYP 

83 VRRPNI 

84 INPUI 

9D FftCEXP 

SE FRCHOHO 

9F FACHO 

A2 FACSGN 

B1 CHAR6ET 

B7 CHARMI 

BA PAINI 

0314 NXIOUI 

ft325 NONZER 

0334 OUTlOP 

0350 ENDFLD 

0354 OUTDAIA 

0358 MISfCRR 

035A ERRI 

035D FPIN 

0362 i€XIIN 

0387 NOEOD 

03aC DINLOP 

038F DINLOPl 

039f NOREIN 

03A5 SAVEREG 

03B2 OUIOfC 

03B8 LODREG 

03C0 11^ 

9EE0 DISCDOS 

a60E OUIDOS 

AS3F EDDERR 

AS8C INDOS 

A851 CONNDOS 

AA51 INPSU 

AA52 QUISN 

AA59 DSAVP 

AA5B DSAVY 

AA5C OSAVA 

0412 ERROR 

DD67 FRnNUM 

DEBE CKKCOn 

DEC0 SYNCHR 

DFE3 PIRGEI 

EB72 ROUND 


pretazione dei dati da parte del DOS e 
di conseguenza possiamo scrivere o 
leggere da disco qualsiasi byte senza 
problemi. 

La routine in linguaggio macchina 
qui presentata fa proprio questo: chia¬ 
ma le routine del DOS INONE e OLI¬ 
TONE che svolgono il lavoro di ingres¬ 
so e uscita senza esaminare in alcun 
modo i dati. 

A questo punto ci troviamo però nel¬ 
l’impossibilità di rivelare la fine di un 
file: quando si tenta di leggere oltre la 
fine del file il FILE MANAGER non dà 
messaggi di errore, si limita a fornire 
come risposta un byte nullo. Dunque 
non è possibile distinguere un numero 
in formato binario composto da tutti 
byte nulli da un numero letto oltre la 
fine del file. 

Per rimediare anche a questo in¬ 
conveniente occorre ricordare come 
l’Apple memorizza i numeri reali: vie¬ 
ne usata la forma (mantissa) ★ 2" 
(esponente). 

li primo byte è l’esponente e viene 
codificato in eccesso di $80, cioè a 
$80 corrisponde esponente 0, a $7F 


esponente -1, a $81 esponente 1 e 
così via. Il valore $00 per il byte espo¬ 
nente viene usato per memorizzare lo 
zero: quando il byte esponente è $00, 
allora il numero è nullo quale che sia la 
mantissa. 

Se noi stabiliamo dunque che quan¬ 
do si deve scrivere su disco uno zero 
in formato binarlo alla mantissa venga 
sempre attribuito un valore diverso da 
zero, allora non è possibile che in un 
file esista un numero composto da by¬ 
te tutti nulli: se un numero è diverso da 
zero il suo byte esponente è diverso 
da $00, se un numero è nullo lo abbia¬ 
mo registrato con mantissa non nulla. 

Di conseguenza ogni ambiguità è 
eliminata e un numero composto da 
tutti byte nulli è stato letto oltre la fine 
del file e deve provocare la segnala¬ 
zione di un errore END OF DATA. 

Ma attenzione: con i file in formato 
binario non funziona il comando AP- 
PEND In quanto esso ricerca la fine 
del file leggendo un byte dopo l’altro e 
rilevando il primo byte nullo. 

Aldo Mozzi 





I MINIFLOPPY 


“SLIM LINE” 


Ora sul vostro APPLE* 
potete montare ad 
un prezzo interessante 
i minifloppy FDD 810 

Ingombro pari 

alia metà dei normali 

minlfloppy 

Particolarmente 

silenzioso 

Contenitore elegante 

Provvisto di cavi rete 
e segnali 


Se il vostro distributore di zona è 
sprovvisto richiedeteli direttamente a: 



VIA CIVITALI 76 - 20148 MILANO 
Tel. 02/4047648 -Tx 335654TELCOM I 
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Grafici 
con la DPM 

Avevo una Centronics 
937 ormai vecchia, e l’ho 
cambiata con la nuova Dot 
Matrix Printer, soprattutto 
per stampare con il Busi¬ 
ness Graphics. Ma che de¬ 
lusione: non riesco a farla 
funzionare in grafica... 

(lettera firmata) 
Milano 

Purtroppo Dot Matrix Prin¬ 
ter e Business Graphics 
non vanno d'accordo. È in 
arrivo però un programma 
che si chiama Pie, che con¬ 
sentirà di adattare il Busi¬ 
ness Graphics. Intanto però 
una cosa si può fare: salva¬ 
re tutto ciò che c'è di grafi¬ 
ca sullo schermo e che inte¬ 
ressa riprodurre su carta 
(uscendo dal Business 
Graphics e battendo BSA- 
VE GRAFICI,A$2000, 
L$2000), per stamparlo in 
un secondo tempo. Per 
quest'ultima operazione il 
modo più pratico è quello di 
modificare la riga 45630 del 
programma dimostrativo 
della stampante (DMP 
EXERCISER PT2). La modi¬ 
fica da fare è quella indica¬ 
ta in questa pagina. Il risul¬ 
tato sarà che dal menù del 
dimostrativo, chiedendo di 
stampare un grafico, com¬ 
pariranno sullo schermo le 
domande QUALE IMMAGI¬ 
NE?, e poi DRIVE 1 O 2?. 

Un trucco 
per l’ESC 

Ho da poco un Apple//e, e 
non ho capito bene come si 
fa a correggere con l’ESC la 
riga di un listato in Basic, 
senza ribatterlo. Oltretutto 
nel caso di righe molto lun¬ 
ghe la treccina destra copia 
anche gli spazi allungando 
ulteriormente l’Istruzione, fi¬ 
no a farle superare la lun¬ 
ghezza ammessa, con il ri¬ 
sultato che alla fine devo ri¬ 
battere tutto lo stesso. Sen¬ 


45630 INPUT "QUALE IMMAGINE? ";I 
MMAGINE^: INPUT "DRI^E 1 0 2 
? " ;NUMDRIV^E^: PRINT D^;"BLO 
AD"IMMAGINE^",A^2000,D"NUMDR 


La riga da modificare nei DMP EXERCiSER PT2 (ii 
programma dimostrativo deiia Dot Matrix Printer), per 
poterio utiiizzare per ia stampa di pagine grafiche 
precedentemente saivate su dischetto. 


correzione consiste neH'in- 
serire comunque qualcosa, 
al momento in cui quel che 
si deve scrivere non ci sta 
più, si può battere di nuovo 
ESC, spostarsi su un punto 
pulito dello schermo, scri¬ 
vere quel che si vuole inse¬ 
rire, ribattere ESC e tornare 
al punto dal quale si è usciti, 
ribattere ESC e continuare 
fino in fondo. Perle istruzio¬ 



ni lunghe non si deve copia¬ 
re con la freccia anche lo 
spazio alla fine della riga. A 
questo punto si esce con 
l'ESC alla fine di ogni riga 
per posizionarsi all'inizio di 
quella successiva. Oppure, 
un trucco molto utile: prima 
di chiamare la riga da lista¬ 
re, si batta: POKE 33,30 
(per tornare al normale PO¬ 
KE 33,40) ed ecco eliminati 
gli spazi. Ogni riga avrà so¬ 
lo 30 caratteri, e il cursore, 
azionando le freccine, pas¬ 
serà solo sui caratteri non 
anche sullo spazio alla de¬ 
stra dello schermo. 


za contare, che tenendo 
premuto l’ESC e la freccia, il 
cursore mi scappa sempre 
via velocissimo ed è estre¬ 
mamente difficile da tenere 
sotto controllo... 

(lettera firmata) 
Torino 

Supponiamo di voler cor¬ 
reggere la riga 100. Si batte 
LIST 100 e comparirà la ri¬ 
ga. Si batte allora ESC, ma 
una volta sola, senza tener¬ 
lo premuto, e con le frecce 
poi si potrà spostare il cur¬ 
sore in su, fino al primo ca¬ 
rattere dell'istruzione da 
correggere. Nel nostro ca¬ 
so ri di 100. A questo pun¬ 
to si schiaccia di nuovo 
ESC, sempre una volta so¬ 
la, e si percorre la riga verso 
destra con la freccia per tut¬ 
ta la parte che non si desi¬ 
dera cambiare. Appena ar¬ 
rivati al punto in cui si vuole 
introdurre la correzione, ba¬ 
sta batterla, per poi ripren¬ 
dere fino in fondo sempre 
con la freccia destra. Alla 
fine, battere Return. Se la 



NEWSSAPPLE COMPUTER 


INTERFACCIA PARALLELA CON GESTIONE GRAFICA 
TELERASTER SCHEDA PER TELECAMERA 
16 KILOBYTES MEMORY CARD (PASCAL) 

SINGOLO DRIVE FLOPPY 5" 140 K 
DOPPIO CONTROLLER PER DRIVE 5” 

DOPPIO DRIVE MINI 320K T (1604160) 

DOPPIO DRIVE MINI 640K 5” (320 4 320) 

DOPPIO DRIVE MIN11^ S* (6404640) 

SINGOLO DRIVE 8” 

DOPPIO CONTROLLER PER DRIVE 8" 

DOPPIO CONTROLLER D.D. ^5 MEGA)^PER 8" 
DIGICODER 2 CANAL1100 MUONI DI PUNTI 
SCHEDA ACQUISIZIONE PER ENCODER OHICI 
PROGRAMMATORE DI EPROM 2716 • 32 ECC. 
MAXIRAM 64 KILOBYTES 
EXPA 128K COMPATIBILE RAMEX 


SCHEDA A/D CONVERTER 
SCHEDA 80 COLONNE 
INTERFACCIA SERIALE RS232 50-9.600 BAUD 
SCHEDA Z8(VCPM CON DUE VOLUMI 
PIASTRA CPU 48K ESPANDIBILE 64-128K 
TASTIERA CON PAD NUM. E REPEAT AUTOM. 
AUMENTATORE PER aP.U. 

ALIMENTATORE TAMPONE CON BATTERIE 
CONTENITORE IN ALLUMINIO X CPU E DRIVE 
MICRO ELAB. COMPATIBILE APPLE COMPLETO 
OKI ML 80 FRIZ. 4 TRAHORE 80 CPS 80 COLONNE 
OKI ML 82 FRII 4 TRAHORE120 QPS GRAFICA 
OKI ML 83 FRIZ. 4 TRAHORE 120 CPS GRAFICA 
OKI ML 84 FRII 4 TRAHORE 200 CPS GRAFICA 
TELECAMERA PROFESSION. 16 MM. CON DIAFRAMMA 


SOFTWARE PER APPLE 


MINUSCOLE E MAIUSCOLE CON APPLE WRITER 
EDITOR C.N. TRANSCODIFICA EIA - ISO 
GRAFPACK HARD COPY VIDEO 
VISITREND VISIPLOT PER OKI SERIE ML 
SCREEN WRHER CON DRIVER OKI 
TOOL KIT 


APPLE WRITER II CON DRIVER OKY 
DATA BASE PFS CON DRIVER OKI 
GAMES HIRES DISCHEni 
VISICALC CON STAMPE SU OKI ML 
FORTRAND 80 


TORINO • VIA ORMEA, 99 • TEL. 011 / 655.865 
CONDIZIONI PARTICOURI PER O.E.M. E HOBBISTI 
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uanto 



In queste pagine Applicando pubblica i listini prezzi aggior¬ 
nati dei prodotti Apple distribuiti dalla Iret Informatica SpA, 
Via Bovio 5, 42100 Reggio Emilia. 

Listino in vigore dal 1 giugno 1983.1 prezzi non comprendo- 
I no le spese di installazione. 


APPLE //E 


Prezzo Prezzo 
IVA esci. IVA comp. 

Applelle . 1.850.350 2.183.413 

Unità centrale del sistema, comprensiva di: 

• Memoria da 64Kbyte RAM e 16Kbyte ROM 

• Tastiera italiana con maiuscole e minuscole 

• Interfaccia per registratore a cassette • Se¬ 
gnale di uscita video B/N e colori PAL • Soft¬ 
ware di base residente • Monitor, Disassem¬ 
bler, BASIC esteso APPLESOFT 


ESPANSIONI 

Scheda 80 colonne . 225.000 265.500 

Permette alTApple Ile di visualizzare i testi su 
80 colonne. 


IVA esci. 


IVA comp. 


INTERFACCE 


Super interfaccia seriale per Applelle . 352.000 415.360 

Scheda di interfaccia seriale RS232 utilizza¬ 
bile perii collegamento di stampanti e linee di 
comunicazione. (Anche per Apple H Euro- 
plus). 


Interfaccia paraiiela universale Applelle 304.000 358.720 

Scheda di interfaccia che permette il collega¬ 
mento di unità periferiche con standard paral¬ 
lelo e Centronics. (Anche per Apple H Euro- 
plus). 

Scheda interfaccia IEEE488per Applelle ... 841.000 992.380 

Permette il collegamento di strumenti di misu¬ 
ra e dispositivi periferici vari che utilizzano lo 
standard di interfacciamento IEEE 488. (An¬ 
che per Apple H Europlus). 

Scheda prototyping hobby per Applelle . 52.000 61.360 

Scheda per realizzare propri circuiti da colle¬ 
gare al personal computer Apple He. (Anche 
per Apple H Europlus). 


ACCESSORI 


I 



Scheda 80 colonne con espansione di me- 



Apple stand . 

50.000 

59.000 

moria . 

493.000 

581.740 

Base di appoggio del Monitor III per consenti¬ 



Espansione della memoria del computer Ap¬ 
ple Ile a 128Kbyte totali, e visualizzazione dei 
testi su 80 colonne. 



re l’installazione esteticamente piacevole sul¬ 
l'Apple He e su Apple H Europlus. 






Borsa In vinile per Apple He (anche per Ap¬ 



UNITÀ DI MEMORIA 



ple// Europlus) . 

52.000 

61.360 

Disk II, drive a doppio controller . 



Set cavi per interfaccia paraiiela Apple . 

36.000 

42.480 

924.000 1.090.320 



Unità di memoria per floppy disk da 5.25’\ con 
capacità di 140Kbyte per ogni floppy. L'unità 



DOS. 3.3 Kit He . 

135.000 

159.000 

è comprensiva della scheda di interfaccia per 
Apple Ile, che permette di collegare anche un 



LINGUAGGI DI PROGRAMMAZIONE 



secondo drive aggiuntivo. (L'Apple He per¬ 
mette il collegamento di 6 drive con controller 



Apple Pascal . 

486.000 

573.480 

e 6 drive aggiuntivi, nella configurazione mas¬ 
sima.) Collegabile anche a Apple II Europlus. 



Apple Fortran . 

403.000 

475.540 

Disk II, drive aggiuntivo . 

Unità di memoria per floppy disk da 5.25", con 

700.000 

826.000 

Super Piiot . 

438.000 

516.840 

capacità di 140Kbyte per ogni floppy. L'unità 
aggiuntiva necessita del controller, fornito 



Apple Logo . 

352.000 

415.360 

nella confezione del disk H drive a doppio 
controller. Collegabile anche a Apple H Euro¬ 



DOCUMENTAZIONE 



plus. 



* Manuale utente dell'Apple He In Italiano .... 

22.000 

25.960 

PERIFERICHE 



Manuale di Introduzione al linguaggio Ap¬ 
plesoft He (in inglese) ' . 

22.000 

25.960 

Hand controller He . 

Due manopole di controllo comprensive di 

60.000 

70.800 

Manuale del linguaggio Applesoft He (in 



pulsante. 



inglese)^ . 

27.000 

31.860 

Joystick He . 

106.000 

125.080 

Set di manuali Applesoft He (i due prece¬ 



Leva di comando per fornire direttamente al 
computer Apple He input di posizionamenti in 



denti, in inglese) . 

45.000 

53.100 

coordinate X-Y. 



Manuale del sistema Applelle (in inglese)^ 

27.000 

31.860 

Numeric Keypadlle . 

296.000 

351.640 

The Applesoft Tutoria! in italiano^ . 

21.000 

24.780 

Tastierino numerico per Apple He, completo 
ed interfacciato. 



Applesoft II Reference Manual In Italiano^ 

21.000 

24.780 


i 
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Prezzo Prezzo 
IVA esci. IVA comp. 


Apple II Reference Manual In Italiana^ . 42.000 49.560 

Apple Integer Basic Programming Manual 

in italiano . 15.000 17.700 

* Disk II, Sistema Operativo DOS 3.3 . 21.000 24. 780 

* Appiè Pascal Reference Manual (in ingle¬ 
se) . 39.000 46.020 

* Apple Pascal Operating System Manual 

(in inglese) . 51.000 60.180 

* Apple Fortran Manual (in inglese) . 51.000 60.180 

* Apple Pilot Reference Manual (in inglese) 36.000 42.480 

* Apple Pilo! Editore Manual (in inglese) . 31.000 36.580 

* Graphics Tablet Manual (in inglese) . 20.000 23.600 

* Silentype Manual (in inglese) . 6.000 7.080 

6502Hardware Manual (in inglese) . 30.000 35.400 

6502 Programming Manual (in inglese) . 30.000 35.400 


* Manuali già inclusi nel prezzo delle singole parti, 
ma ordinabili anche separatamente. 

Le note 1, 2 e 3 indicano gli stessi manuali, 
in versione inglese o italiana. 

APPLE /// 


Prezzo Prezzo 
IVA esci. IVA comp. 

PERIFERICHE 

Cursorltl . 135.000 159.300 

Leva di comando per fornire direttamente al 
computer Apple III input di posizionamenti in 
coordinate X-Y. 

INTERFACCE 


Interfaccia parallela universale Apple III . 454.000 535.720 

Scheda di interfaccia che permette il collega¬ 
mento con standard parallelo di unità perife¬ 
riche. 

Scheda prototyping per Apple III . 103.000 121.540 

Scheda per realizzare propri circuiti da colle¬ 
gare al computer Apple III. 


ACCESSORI 


Borsa in vinile per Apple HI . 84.000 99.120 

Kit conversione Silentype II - Silentypelll .... 84.000 99.120 

Modem ellminator cable . 14.000 16.520 

Set cavi per Interfaccia parallela Apple . 36.000 42.480 

LINGUAGGI DI PROGRAMMAZIONE APPLE 

Apple m Business Basic . 253.000 298.540 

Pascami . 486.000 573.480 


Applelll (128 Kb) . 5.200.350 6.136.413 

Sistema di elaborazione professionale Apple 
m, comprensivo di: • Memoria da 256 Kb 
RAM • Tastiera con maiuscole e minuscole e 
tastierino numerico • Disk drive integrato per 
floppy disk 5.25" da 140 Kb • Controller per 
ulteriori 3 drive aggiuntivi esterni • Interfaccia 
seriale RS 232 e per stampante Silentype 

• Segnale di uscita video BIN e a colori RGB 

• Sistema operativo SOS comprensivo di Utili¬ 
ties di sistema. 


ESPANSIONI 


UNITÀ VIDEO 


Monitor m . 

400.000 

472.000 

Video a 12 pollici, fosfori verdi, per Apple He e 
per Apple IH. 



Monitor fosfori verdi 9". . 

180.000 

212.400 

Monitor Philips fosfori gialli . 

352.000 

425.360 


UNITÀ DI SCRITTURA 

Silentype//e . 723.000 853.140 

Stampante termica da 80 colonne con capa¬ 
cità grafiche. La confezione comprende Tin- 
terfaccia e i cavi di collegamento all Apple Ile. 

Silentypelll ... 656.000 774.080 

Stampante termica da 80 coionne con capa¬ 
cità grafiche. 


Softcardlll . 908.000 1.071.440 

Scheda CPU che permette di utilizzare il si¬ 
stema operativo CPIM anche sul computer 
Apple ///. 

UNITÀ DI MEMORIA 


Disk/fl . 755.000 890.900 

Drive aggiuntivo per floppy da 5.25”. Capaci¬ 
tà di 140 Kb per floppy. È possibile collegare 
fino a 3 Disk III per ogni Apple III. 

ProFile/H . 3.776.000 4.455.680 


Unità di memoria aggiuntiva basata su disco 
rigido (Winchester) da 5 Mega byte. L’unità è 
completa di interfaccia per Apple III. È possi¬ 
bile collegare fino a 4 ProFile per ogni Apple 
/// per un totale di 20 Mega byte in linea. 


Stampante ad aghi Apple . 1.150.000 1.357.000 

Unità di stampa che permette di utilizzare fogli 
singoli o modulo continuo. Stampa in norma¬ 
le, compresso, grassetto e proporzionale, 
inoltre permette la stampa di grafici ad alta 
risoluzione. In stampa normale permette di 
ottenere 80 colonne. La velocità è di 120 ca¬ 
ratteri al secondo stampa bidirezionale. L’in¬ 
terfaccia richiesta è di tipo parallelo (cod. 

115-02). È necessario ordinare il set di cavi 
(cod. 122-05). 


































Prezzo Prezzo 
IVA esci. IVA comp. 


Prezzo Prezzo 
IVA esci. IVA comp. 


Stampante a margherita Apple . 3.600.000 4.248.000 

Per ottenere stampe di documenti e corri¬ 
spondenza di elevata qualità. L’unità permet¬ 
te di utilizzare fogli singoli o modulo continuo. 

La spaziatura fra i caratteri è selezionabile: 

10,12,15 caratteri per pollice. La velocità è di 
40 caratteri al secondo e il percorso è bidire¬ 
zionale ottimizzato. L'interfaccia richiesta 
(cod. 115-01) è di tipo seriale (già compresa 
nell’Apple III, ma non nell’Apple He). 


Stampante IRET80 Colonne Parallela . 1.110.000 1.298.000 

Stampante IRET132 Colonne Parallela . 1.552.000 1.831.360 

MATERIALE DI CONSUMO 

Confezione 10 dischetti Apple . 103.000 121.540 

Raccoglitori per dischetti (50 fogli) . 66.000 80.240 

Carta termica per Sìlentype (10 rotoli) . 84.000 99.120 

Confezione 6 nastri per stampante marghe¬ 
rita Apple . 135.000 159.300 

6 nastri multi strike per stampante ad aghi 

Apple . 135.000 159.300 

6 nastri in tessuto per stampante ad aghi 

Apple . 135.000 159.300 

Confezione 6 margherite tipo P.E.12 . 170.000 200.600 

Margherita tipo Prestige Elite 12. 

Confezione 6 margherite tipo C. 10 . 170.000 200.600 

Margherita tipo Courier 10. 

Confezione 6margherite tipo G. 15 . 170.000 200.600 

Margherita tipo Gothic 15. 

Confezione 6 margherite tipo B. P. . 170.000 200.600 

Margherita tipo Boldface per stampa Propor¬ 
zionale. 


ESPANSIONI DEL SISTEMA 


Scheda ZOO Microsoft per Sistema Operati¬ 
vo CP/M . 811.000 956.980 

Cobo! 80 Microsoft per Scheda ZOO . 1.562.000 1. 843.160 

Fortran 80 Microsoft per Scheda Z80 . 406.000 479.080 

Basic Compilar Microsoft per Scheda ZOO 769.000 907.420 

ALDS Microsoft (sistema di sviluppo per pro¬ 
grammi Assembler8080, ZOO e 6502) . 260.000 306.800 

Scheda orologio calendario CCS . 250.000 295.000 

Arithmetic Processor CCS . 993.000 1.171.740 

Scheda espansione Maxi RAM 16K BASIC 269.000 317.420 

TASC Microsoft (compilatore Applesoft) . 364.000 429.520 


PERIFERICHE 

Mega-Disk Doppio drive 5 ", con controller.... 2.998.000 3.537.640 

Doppio Drive 8 "S.D. Doppia faccia . 3.268.000 3.856.240 

Doppio Drive 6 ' D.D. Doppia faccia con con¬ 
troller . 4.240.000 5.003.200 

INTERFACCE 

Modulatore UHF . 73.000 86.140 

Interfaccia IRET Centronics con grafica per 

739 . fàO.OOO 224.200 

Interfaccia IRET standard Centronics . 140.000 165.200 

Interfaccia CCS parallela . 260.000 306.800 

Interfaccia CCS seriale RS232-C . 309.000 364.620 

Interfaccia Seriale sincrona CCS . 427.000 503.860 

Interfaccia Centronics con Buffer SET . 400.000 472.000 

Scheda CCS GPIB IEEE488 . 585.000 690.300 

Scheda CCS A/D con verter BCD . 237.000 279.660 

Controller per Drive 8'FAST singola densità 402.000 474.360 

Controller -h Software per compatibilità IBM 

su 8” singola densità . 770.000 908.600 

MISCELLANEA 

Alimentatore tampone . 290.000 342.200 

DOCUMENTAZIONE 

User Manual and Report Pascal . 29.000 34. 220 

Problem Solvlng Using Pascal . 23.000 27.140 

Some Common Basic Programs . 33.000 38.940 


SOFTWARE 


Apple WrìterHeSistema di videoscrittura . 310.000 365.800 

Quick File He Gestione archivi ed indirizzari ... 180.000 212.400 

Business Graphics II Sistema di elaborazio¬ 
ne e creazione di grafici . 352.000 415.360 

Multiplan per Apple He Sistema di calcolo 
basato su foglio elettronico suddiviso in ele¬ 
menti mutuamente correiabili . 560.000 660.800 

Apple Project Manager . 470.000 554.600 

HandHoldBasIc . 237.000 279.660 

Pascal Animation Tool . 151.000 178.180 























































Persona! Fìnance . 

Supermap . 

VT-100 Emù fatar . 

Worid’s Black Jack ... 

Senior Analist II . 

Script II . 

SpeedReader . 

Moptown .. 

Magic Speli . 

Datatree . 

Visicalclll . 

Mail List Manager Gestione indirizzario po¬ 
stale collegabile ad Apple Writerlll . 

Quick Fileni . 

Apple Writerlll Sistema di videoscrittura . 

Business graphics III . 

Access III . 

Script m . 

Senior analist m . 

Pascal Utility Library III . 

Catalist . 

Personal Data Base 5 ". 

Personal Data Base 8 ' . 

Personal Flling System per Apple II . 

Personal Report System per Apple II . 

Software grafico per Centronics 739 ... 

Programming AIDS 3-3 . 

Personal Filing System per Apple III . 

Personal Report System per Apple III . 

PTERO (Cominfor) Word processing . 

P.F.S. Graphics II . 

P.FS. Graphicslll . 

P.F.S. Data Saver . 

Personal Flling System per Apple II e . 

Personal Report System per Apple Ile . 

Personal Filing System Graph per Apple Ile 


Prezzo 

Prezzo 


Prezzo 

Prezzo 

IVA esci. 

IVA comp. 


IVA esci. 

IVA comp. 

151.000 

178.180 

CCA Data Management System Apple U 
plus . 

254.000 

299.720 

51.000 

61.360 

Sistema perla gestione generalizzata di infor¬ 
mazioni. Memorizza dati di qualsiasi tipo, 



151.000 

178.180 

consentendo la ricerca automatica ed even¬ 
tuale modifica. 



70.000 

83.780 




454.000 

535.720 

Desk Top Pian II Apple II plus . 

Sistema semplice e rapido per organizzare il 

478.000 

564.040 

202.000 

238.360 

lavoro di analisi finanziaria, preparazione di 
budget e programmazione della gestione. 



151.000 

178.180 

Sono previste stampe da allegare alle relazio¬ 
ni e rappresentazioni grafiche necessarie per 



103.000 

121.540 

una maggiore chiarezza. 



103.000 

121.540 

Desk Top Pian III Apple/// . 

Versione potenziata del Desk Top Pian II, per 

573.000 

676.140 

253.000 

298.540 

le maggiori capacità di Apple III. 



486.000 

573.480 

VisiCalc Apple Ile . 

Sistema di simulazione basato su una matrice 
di 64x254 elementi correiabili con metodi di 

478.000 

564.040 

304.000 

358.720 

calcolo multirelazionale. La matrice è un foglio 
di lavoro, che consente di osservare dinami¬ 



336.000 

438.000 

396.480 

516.840 

camente le conseguenze delle proprie deci¬ 
sioni, prima di renderle esecutive: poiché con 



VisiCalc è possibile rispondere in ogni mo¬ 
mento alla domanda «Cosa succederebbe 



352.000 

415.360 

Ideale per pianificazioni e program¬ 
mazioni aziendali, giustifica anche da solo 
r acquisto di un personal computer anche nel¬ 
le applicazioni scientifiche e di calcolo in ge¬ 
nerale. 



304.000 

358.720 

253.000 

298.540 

707.000 

834.260 

VisiCalc Advanced Verslon Apple III . 

764.000 

901.520 

151.000 

178.180 

Versione del VisiCalc potenziata per le mag¬ 
giori caratteristiche^di Apple III. 



328.000 

387.040 






VisiCalc Business Forecasting Model Ap¬ 



66.000 

77.880 

ple II . 

191.000 

225.380 

75.000 

88.500 

VisiCalc Business Forecasting Model Ap¬ 
ple III . 

191.000 

225.380 

217.000 

256.060 



217.000 

256.060 

Visidex Apple II . 

Programma di archiviazione dati inseribili li¬ 
beramente in una scheda corrispondente al 

478.000 

564.040 



73.000 

86.140 

quadro video. Le informazioni possono poi 
essere ricercate istantaneamente secondo ri¬ 



179.000 

258.000 

211.220 

304.440 

ferimenti incrociati: infatti, ogni parola o carat¬ 
tere appartenente alla scheda può essere 



chiave di ricerca per la stessa. 



225.000 

256.500 

Vislflle Apple II . 

Completo sistema di archiviazione elettroni¬ 

478.000 

564.040 

190.000 

224.200 

ca, che permette di organizzare facilmente 
tutte le informazioni necessarie alle attività bu¬ 



217.000 

256.060 

siness. Oltre alla gestione delle informazioni. 



304.000 

358.720 

consente notevoli altre possibilità, quali: cam¬ 
pi calcolati, stampe di rapporti e lo scambio 
dei dati con altri programmi della serie Visi. 



104.000 

122.720 



217.000 

256.060 

VIsIplot Apple II . 

Visiplot facilita e sveltisce la produzione di 

382.000 

450.760 

217.000 

217.000 

256.060 

grafici e diagrammi: linee (continue o spezza¬ 
te), istogrammi, punti, ideogrammi. È prevista 
anche la possibilità di rappresentare contem¬ 



256.060 

poraneamente più serie di punti per un più 
rapido confronto. 
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VIslschedule Apple II ... 573.000 676.140 

Il programma Visischedule è un potente siste- 
ma di pianificazione delle attività e dei proget¬ 
ti. Oltre al controllo avanzamento lavori con¬ 
sente la definizione dei costi e la esecuzione 
di tutti i documenti. 


VIslterm Apple II . 191.000 225.380 

Con Visiterm il personal computer può cornu- 
nicare con grandi e piccoli elaboratori, inviare 
e ricevere informazioni ed archivi su disco 
tramite linea telefonica. È possibile definire 
«macro*> e protocolli di colloquio. 


VIslschedule Apple III . 573.000 676.140 


VIsltrend/PlotApple II . 573.000 676.140 

Il sistema risponde alla crescente necessità di 
idonei strumenti da parte di: pianificatori, ma¬ 
nager, imprenditori, analisti e consulenti. Esso 
è composto da due programmi: uno per anali¬ 
si di tipo statistico (calcolo di regressioni mul¬ 
tiple, medie e coefficienti di correlazione), l'al¬ 
tro per rappresentazioni grafiche. 


PLOTTER 


PlotterStrobe 100 . 1.857.000 2.191.260 

Sistema di disegno e scrittura a rullo e penna 
mobile, controllabile da computer e manual¬ 
mente tramite i pulsanti a pannello. Il sistema 
è corredato di: penne, cavo di alimentazione e 
manuale. 


INTERFACCE 


Interfaccia Strabe per Apple II . 281.000 331.580 

Scheda elettronica di collegamento del Plot- 
ter Strobe 100, al computer Apple II e Apple III 
in emulazione, completa di cavi e di software 
grafico Business graphics per utilizzare facil¬ 
mente le caratteristiche del sistema di dise¬ 
gno automatico per la produzione di isto¬ 
grammi, diagrammi cartesiani e circolari. 


SOFTWARE 


Business Graphics per Apple II . 302.000 356.360 

Programma applicativo che permette il dise¬ 
gno di istogrammi, diagrammi cartesiani e cir¬ 
colari. Particolarmente utile nelle attività di 
pianificazione, il programma è di facile uso 
perché guidato da menù. 


Screen Dump per Apple . 156.000 184.080 

Permette di ottenere la riproduzione della pa¬ 
gina grafica di Apple II. 


MATERIALE DI CONSUMO 


Risma di carta patinata .» 

100 fogli di carta patinata di dimensione ri¬ 
chiesta per il Plotter Strobe 100. 


3.900 4.602 


DAU'MVE 
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FiliaU: Milano Tel. 02/75451 -Torino TeL 011/6192192 

Mestre Tel. 041/962255- Genova Tel. 010/451801 i 

Bologna TeL 051/557157 - Firenze TeL 055/355841 
Roma TeL 06/58421 -NapoU TeL 081/660266. 

Distributori autorizzati in tutta Italia-vedi Pagine Gialle. 






















IINICMIOIB AZaiBMI SI BIOIVOIIOl 

SUPPORTI HUGNEnaSM. 

NZIONI Al PRIMATO TEOmOOICO. 



I 


1 primo nastro per 
computer è stato 
prodotto dalla 3M 
nel 1952. Un primato 
che ha consentito la 
realizzazione dei 
supporti magnetici più 
affidabili e sicuri. 

Le Diskette 3M, 
ad esempio. Omologate 
dai maggiori costrutto " 

Certificate al 10Ò%. 

Garantite 5 anni/Esportat _ 
in tutto il mondo. Prescelte come 
riferimento intemazionale da ECMA, 
ISO ed ANSI. Una gamma completa 
sia per le Diskette 8 pollici che per le 
/Minidiskette 5 pollici e un quarto. 

Le Diskette 3M, grazie all’esclusivo 






rivéstimento magnetico, 
garantiscono 
un’eccezionale resistenza 
all’usura e la massima 
affidabilità. 

La stessa affidabilità 
che offrono tutti i 
Supporti Magnetici 3M: 
Nastri per Computer, 
Dischi Magnetici, 

Data Cartridge. 

Le Diskette e i Nastri Magnetici 3M 
sono interamente fabbricati in Italia e 
questo significa immediata reperibilità 
e migliore assistenza. 

Assistenza e consulenza tecnica 
che il Cliente trova presso le 8 filiali, 
i venditori diretti e 400 distributori 3M, 
in tutta Italia. 


SSniM PER L'UFHOO 3M.IJ1 PERFEZIONE DEUA SPECIE. 



Telecopiatori 


Copiatori 


Sistema Visual 


Microfilm 


Desidero ricevere ulteriori inibrmazioni 
sui Supporti Magnetici 3M. 

Nome_ 

Azienda__ 

Via_ 

Cap_Città_ 

A 

Ritagliare e spedire a: 

3M Italia S.p. A .-Linea Diretta- 
CaseUa Postale 10411/10412-20110 Mikino. 
Oppure telefonare a: 02/75451 





























Listati senza fatica 

I programmi pubblicati su Applicando possono es¬ 
sere trascritti dai lettori e salvati su dischetto. Ma la 
trascrizione è lenta e noiosa. Chi lo desidera può 
richiederci i dischetti sotto indicati, già pronti. Ch| 
desiderasse anche il dischetto con i programmi 
STATISTICHE, SCANNER e FIGURATI UN PO’ può 
ottenerlo gratis. Abbonandosi ad Applicando. • 



AP2/IN04. Dischetto con i programmi CO¬ 
STI CHILOMETRICI (pag. 14), RICHIAMA FI¬ 
GURE (pag. 44), "LASER NELLO SPAZIO 
(pag. 46), e CURVE DI PRESSIONE (pag. 
57). Lire 30.000 (Abbonati Lire 25.000). 


AP1/I02. Dischetto con i programmi PRO¬ 
FITTI PER FAVORE (pag. 38), CALENDA¬ 
RIO PERPETUO (pag. 54), e I TRONCHI DEL 
TESORO (pag. 66). Lire 30.000 (Abbonati 
Lire 25.000). 


AP1/NC)3. Dischetto con i programmi ELI- 
MINATORE DI DOS (pag. 28);, OROLOGIO 
(pag. 44), e PRONTI PUNTARE FUOCO! 
(pag. 46). Lire 30.000 (Abbonati Lire 
25.000). 


Compilare è spedire il tagliando qui sotto a Applicando, Editronica Srl., Corso Monforte 39, 20122 Milano. 

lAlPl l/M I I „_|A|P| |/| I IJ 


Vogliate inviarmi i seguenti dischetti: n 
Sono abbonato: sì □ no □ n 


AlPl 1/ 


Nome.. 


Gap.... 
... Data. 


. Città.... 
. Firma. 


Cognome. 

Via. 

Prov. 

Scelgo la seguente formula di pagamento: trasferibile intestato a Editronica srl. 

□ allego assegno di L... g^l ^ 9740208 intestato a 

□ allego ricevuta versamento di L... 

Editronica srl - Corso Monforte, 39-20122 Milano. .con la mia carta di credito BankAmericard 

□ pago fin d ora I importo di L.scadenza..autorizzando la Banca d'America 

e d'Italia ad addebitarne l’importo sul mio conto BankAmericard. 
































Complimenti alla vostra 
rivista: riempie un gran vuo- 

!? ' possessori di 

Apple avvertivano. Bravi! 
Continuate e migliorate an¬ 
che nella quantità e nella 
qualità del software. Due 
consigli: primo, indicate 
chiaramente all’inizio di 
ogni articolo la configurazio¬ 
ne Apple cui il programma è 
destinato; secondo, nel vo¬ 
stro primo numero la lettera 
O e lo zero nel listati si con¬ 
fondono facilmente, perché 
non usare lo zero barrato? 

Poi, una richiesta per la 
rubrica Chiedi un program¬ 
ma: sono un medico alle pri¬ 
me armi nel campo del per¬ 
sonal, ma mi servirebbe un 
programma In cui poter in¬ 
serire dati e notizie riguar¬ 
danti i pazienti, una decina 
di dati per paziente (età, 
provenienza, diagnosi, tera¬ 
pia, ecc.). A fine inserimen¬ 
to si dovrebbero poter fare 
dei calcoli incrociati del tipo: 
quanti pazienti In tutto?, 
quanti provenienti dalia tale 
città?, quanti con la stessa 
diagnosi? , quanti con la 
stessa diagnosi proveniva¬ 
no dalla stessa città? Avrete 
capito che per ricerche epi¬ 
demiologiche ciò sarebbe 
utilissimo, soprattutto se si 
potessero ottenere anche 
statistiche, grafici, ecc. 

Dott. Bruno Pallotta 
Macerata 

Ho un problema di gestio¬ 
ne di una biblioteca di circa 
10.000 volumi e di circa 
5.000 titoli di articoli su rivi¬ 
ste professionali. Volendo 
usare il mio Apple//e... 

Dott. Carlo Ferraris 
Torino 


Abbiamo qualcosa in prepa- 
razione che dovrebbe ac¬ 
contentare il dottor Ferraris, 
anche se ci spaventa un po' 
la quantità di libri e articoli 
che il dottor Ferraris deve 
gestire: forse nel suo caso 
sarebbe meglio far ricorso a 
memorie diverse dai di¬ 


schetti, a meno che libri e 
articoli non siano gestibili su 
una decina di dischetti di¬ 
versi. .. Quanto al dottor Pal¬ 
lotta, ha provato col Quick 
File? Non esegue calcoli 
statistici né traccia grafici, 
ma può effettuare conteggi 
e calcoli (in fase di report), e 


si presta alle più complesse 
selezioni con estrema prati¬ 
cità. Ma ci penseremo anco¬ 
ra, e invitiamo senz’altro 
chiunque abbia notizia di 
software adatto a ricerche 
epidemiologiche a segna¬ 
larcelo. 

Esiste un programma per 
il gioco degli scacchi ad alto 
livello, e come posso procu¬ 
rarmelo? 

Dott. A.G. Signorino 

Calenzano (Firenze) 

Ne esistono almeno quattro 
o cinque: Sargon II, con 7 
livelli di gioco, che ha scon¬ 
fitto lo Chess Challenger al 
torneo londinese per pro¬ 
grammi di scacchi, è pro¬ 
babilmente il più noto. Poi 
Microchess, Mychess (che 
però necessita della sche¬ 
da ZdO perché in CP/M) e 
Chess Connection. Que¬ 
st'ultimo consente di gioca¬ 
re non contro il computer 
ma, via computer modem e 
telefono, con un altro avver¬ 
sario in carne ed ossa dota¬ 
to anch 'egli di computer. In 
Italia sono disponibili Sar¬ 
gon Il e il nuovissimo Chess 
Odesta, rispettivamente a 
70.000 lire e 140.000 lire più 
Iva. Può richiederli a Bits & 
Bytes, Viale Montegrappa 
4, 20124 Milano. 

Nel numero 1 di Appli¬ 
cando siamo incorsi in al¬ 
meno due refusi: a pagina 
11 abbiamo chiamato 
Mazzi IMngenger Aldo 
Mozzi, e a pagina 30 ab¬ 
biamo indicato come Mez- 
zetti il bravo Alessandro 
Mazzetti. Ci scusiamo con 
gli interessati e con i let¬ 
tori. 


Mercatino delle mele 


w Scambio software per Apple il di ingegneria 
civile, grafici gestionali, utility, ecc. Ing. Lucio lotti, 
via Bizet 3, 42100 Reggio Emilia. 

Programma di matematica e statistica, T Stu- 
dent, chi quadro ed altri, utile per medici e biologi, 
non copy protected, lire 60.000. Alpha plot, utilissi¬ 
mo generatore di disegni e scritte di qualsiasi di¬ 
mensione, permette qualsiasi tipo di grafica, non 
copy protected, lire 70.000. V. Scotto, 06/6384829. 

Vendo Apple II 64K con due Drive, monitor 12 
ambra, stampante sylentipe e molti programmi, lire 
2.500.000 più Iva. Materiale come nuovo usato po¬ 
chissimo. Gilberto Storti, via Grazioli 34, 46100 
Mantova, 0376/368993. 

^ Possessore di Apple//e, cerco altri appleduisti 
con cui scambiare programmi di qualsiasi genere. 
Carlo Marchesi, via G. Bologna 7, 40033 Casalec- 
chio di Reno (BO), 051/579428. 

fk Vendo programmi di termotecnica, legge 373 
con relativa grafica delle strutture, glaser e grafica, 
calcolo dei corpi scaldanti, formule di previsione dei 
consumi energetici e relativa simulazione, stampa 
di tutti i dati in tutti i programmi. Necessario Apple II 
48K 2 Drive. Studio Termotecnico Geom. Donetti, 
Corso Nizza 80, 12100 Cuneo, 0171/68948. 

fi Vendo Osborne 1 perfetto e perfettamente fun¬ 
zionante, completo del tre programmi originali (Su- 
percalc, Wordstar e Mail Merge) più DataStar, lire 
2.000.000 -f- Iva. Scrivere a Matilde Scaglioni, cor¬ 
so di P.ta Vittoria 46, Milano. 



* APPLE è un marchio 
registrato dalla APPLE 
COMPUTER INC. 


POSSEDETE UN APPLE*? VOLETE FAR DELLA GRAFICA? 

APPROFITTATE DI QUESTA OFFERTA SPECIALE! 


COMPUTER ELETTRONICA 


VIA S. CATERINA DA SIENA 31/33 
20013 MAGENTA (MI) - TEL. 02/9793520 


vi propone: 

SOFTWARE GRAFICO (su dischetto MAXELL) più una stampante SEiKOSHA 
GP 80 più una confezione di CARTA IN MODULO CONTINUO (2000 fogli) più 

INTERFACCIA parallela per APPLE* più CAVI DI COLLEGAMENTO 


CONDIZIONI DI VENDITA 

Spedite il vostro ordine a: 

COMPUTER ELETTRONICA 
Via S. Caterina da Siena 31/33 
20013 MAGENTA (MI) - Tel. 02/9793520 
Allegate un assegno circolare, un assegno di 


c.c. oppure un vaglia postale intestati a; 
COMPUTER ELETTRONICA, via S. Caterina da 
Siena 31 /33 - Magenta (MI). 

Al prezzo d'offerta dovrete aggiungere l'IVA del 
18%. Sarà nostra premura spedirvi in porto as¬ 
segnato la confezione promozionale. 


La vendita si considera effettuata al dettaglio e 
si rilascerà regolare fattura solo se specificata- 
mente richiesta all'atto dell'ordinazione com¬ 
pletata da partita IVA o codice fiscale. 

La merce è coperta da regolare garanzia di 3 
mesi dall'atto della spedizione. 






0800- 20 40 FB JSR $FB40 
0803-AO 10 LDY#$10 

0805- A9 10 LDA#$10 

0807- A2 33 LDX#$33 

0809- 86 30 STX$30 

080B-20 00 F8 JSR$F800 
080E- 00 BRK 

Figura 1 


080E- C8 INY 

080F- 4C 09 08 JMP $0809 

Figura 2 


Più veloci 
in Assembler 

Ecco un utile sguardo al¬ 
l’Interno della grafica Moni¬ 
tor dell’Apple. Per prima co¬ 
sa si batta quanto segue: 

CALL-151 

^*800:20 40FBA010A910 
A2 33 86 30 20 00 F8 00 

Adesso si torni in Basic e 
si digiti CALL 2048 (oppure 
800G). Che cosa è accadu¬ 
to? Sorprendente! 

Lo schermo si è pulito ed 
è stato impostato sulla grafi¬ 
ca a bassa risoluzione, e si 
è tracciato un punto nel 
mezzo dello schermo. Dav¬ 
vero notevole. 

In fig. 1, ecco come si pre¬ 
senta il «codice reale». 

Analizziamo il program¬ 
ma. La prima istruzione JSR 
$FB40 è un salto alla sub¬ 
routine Monitor memorizza¬ 
ta nella locazione $FB40 
(esadecimale). 

L’istruzione (come un 
GOSUB in Basic) esegue la 
subroutine ed è l’equivalen¬ 
te dell’espressione GR del 
Basic. 

Poi il registro Y (uno dei 
tre registri dell’Apple) viene 
caricato con un valore asso¬ 
luto di $10 (esadecimale) 
che equivale a un valore de¬ 
cimale di 16. Il LD Y mette la 
«posizione X» del punto che 
si vuol tracciare nelle mani/ 
braccia/mente della subrou¬ 
tine che traccia la grafica a 
bassa risoluzione. 

L’istruzione LDA#$10 si¬ 
gnifica: carica nell’accumu¬ 
latore un valore assoluto 


esadecimale di $10 (ancora 
equivalente al valore deci¬ 
male 16). L’accumulatore è 
il posto nel quale è memo¬ 
rizzata la «posizione Y» del 
punto da tracciare. 

Adesso ci occorre un co¬ 
lore con cui tracciare. La 
routine dell’Apple tratta la 
faccenda in modo singola¬ 
re. Usa la locazione $30 
(esadecimale) della memo¬ 
ria per memorizzare il colo¬ 
re e chiede che il colore sia 
duplicato in entrambe le 
metà della posizione di me¬ 
moria. 

Nel nostro caso impostia¬ 
mo per esempio il colore su 
3 (Viola), e nella locazione 
di memoria $30 viene me¬ 
morizzato $33. Se avessi¬ 
mo voluto tracciare in Ma¬ 
genta avremmo potuto usa¬ 
re $11, In Blu Scuro $22, in 
Verde Scuro $44, Il Grigio 
$AA (due volte A, dato che 
A è l’equivalente esadeci- 
male di 10) e così via. 

Abbiamo dapprima gene¬ 
rato il valore assoluto $33 
caricandolo in un registro 


non utilizzato, il registro X. 
Poi abbiamo memorizzato 
X nella locazione di memo¬ 
ria $30 per metterlo dove la 
Plot Routine lo possa tro¬ 
vare. 

Dopo di ciò è cosa sem¬ 
plice fare JSR$F800 (la Plot 
Subroutine) per tracciare II 
punto viola nella posizione 
di schermo X=16 Y=16. Lo 
00 nella locazione di memo¬ 
ria $080E è un’istruzione 
BRK che fa fermare II pro¬ 
gramma dopo che il punto è 
stato tracciato. 

Per riassumere: 

JSR $FB40 = GR del Basic 
Registro Y = posizione X 
del plot (punto tracciato) 
Registro A = posizione Y 
del plot 

$30 della memoria = colore 
da tracciare (plot) 

$F800 = subroutine del 
plot. 

Questa subroutine può 
essere incorporata In molti 
programmi di vario tipo per 
tracciare in modo estrema- 
mente veloce, comunque 
almeno dieci volte più velo¬ 


cemente che in Basic. 

Se si vuol saggiare la ve¬ 
locità si provi a digitare nel 
programma; 

080E:C8 4C 09 08 

E poi si batta; 800G. Lo 
schermo si riempirà fulmi¬ 
neamente di punti. Si provi a 
ottenere questo risultato 
con il Basic’ Le aggiunte ora 
battute SI presentano come 
in fig 2 

L espressione INY signifi¬ 
ca INcrementa Y ed è pro¬ 
prio quel che fa aggiunge 1 
al registro Y Si ricordi che il 
registro Y contiene la posi¬ 
zione X del punto da traccia¬ 
re, e COSI la posizione X co¬ 
mincia a incrementarsi in 
maniera sfrenata, girando 
attorno e riempiendo velo¬ 
cemente lo schermo con 
una gran quantità di punti. 
Quando il registro Y arriva 
alla sua capacità massima 
$FF (decimale 255) si porta 
a zero e ricomincia. 

L’intero programma in 
Basic si presenterebbe, fun¬ 
zionalmente, cosi: 

10 GR 
20 X=16 
30 Y=16 
40 COLOR=3 
50 PLOT X,Y 
60 X=X-h1 
70 GOTO 50 

(Nota: con questo program¬ 
ma si otterrà RANGE ERR) 

Ecco tutto. Il lettore do¬ 
vrebbe essere in grado di 
ideare qualche pregevole 
impiego del tracciamento 
ultraveloce con la nuova 
routine. Chi lo fa ce ne dia 
notizia. 



TC 822 A 

SOTTOSISTEMA 
FLOPPY 8” PER APPLE* 



* APPLE è un marchio registrato della 
APPLE COMPUTER INC. 



VIA CIVITALI 75 - 20148 MILANO 
Tel. 02/4047648 - Tx 335654 TELCOM I 


Contenitore ed alimentatore 
Cavi di collegamento a Apple* Il 

CONTATTATECI PER MAGGIORI INFORMAZIONI 


2 floppy disk da 8” 
Controller 









memorabile 



Volendo con una sola parola definire i Flexible 
Discs Memorex, l’unico termine adeguato 
sarebbe “eccellente”. 

Questa eccellenza trae origine da una rara 
combinazione di esperienze, formatasi in 21 
anni di sviluppo e fabbricazione di supporti 
magnetici, ed in più di dieci anni di studi e 
produzione di macchine 
periferiche per elaborazione 
dati. 

L’eccellenza Memorex è 
dimostrata in ogni fase del 
processo produttivo, 
e dai prodotti che ne 
risultano. 

I Flexible Discs oggi 
disponibili sono 


virtualmente compatibili con ogni sistema EDP, 
Word Processor o Personal Computer presente 

sul mercato. 

Per garantire l’eccellenza della prestazione, 
ogni singolo dischetto è controllato traccia 
per traccia, settore per settore, e certificato 

100% error free. 
Il risultato è un Flexible Disc che 
possiede la capacità 
di fornire le 
prestazioni e la 
durata necessarie per 
superare anche le 
applicazioni più 
impegnative e 
garantire veramente 
l’integrità dei dati. 



Via Ciro Menotti, 14 - 20129 Milano - Telefono: 02/718551 A Burroughs Company 
































Apple 
parlala 



tua lingua. 



Indubbiamente con la sua semplicità e versatilità d’uso Apple parla un linguaggio 
universale. Non per niente, nel mondo sono più di 700 mila i possessori 
di un personal computer Apple. 

1 personal Apple fanno di tutto per venire incontro alle esigenze più personali. 
Così il nuovo Apple //e, che puoi trovare in oltre trecento centri di dimostrazione 
e vendita in Italia, non solo offre più memoria e maggiore semplicità d’uso, 
ma anche una tastiera italiana. 

I nuovi Apple parlano e scrivono nella tua lingua; nel lavoro avrai un partner che 
capisce me^io i tuoi problemi e li risolve prima; nello studio e nel tempo libero 
un compagno socievole con una fantasia tutta italiana. 

Vieni a scambiare quattro chiacchiere con il nuovo Apple //e e con il più potente 
Apple ///. Scoprirai che sono sorprendentemente semplici anche nel prezzo: 

Apple ' ^e completo di video e unità per dischetti è in offerta speciale a soli 
2milioni8S0mila e Apple /// ha un discorso ancora più interessante da farti. 

^j^GppkZ II Personal Computer 


Distribuzione unica per l'Italia: IREI Informatica S.p.A - Via Bovio, 5 - 42100 Reggio Emilia - Tel. 0522/32643 - TIx 530173IRETREI 







